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MPS aot ■ don graftske printer. 

Sk'ivei alio 64'ererts gtaliske 
legn. spccialleqn oq hojoptos- 
nmgsgralik. Stoic og sma 
bogslaver • lorsheliige slo'tci 
sei Sknvehaslighed 50 leijnz 
sek 



Floppy-disk 1541. 

Giver dig adgaog ill alia 
de bedsle orogrammei. 
170 kB H7O000 1egn)lil 
data og programme! 
Tesldisketle medlolqei 




Din Commodore giver dig en lang 
raekke muligheder, som du far mest ud 
af ved al bruge udstyr, der er udviklet 
specielt til din computer. Isar for dig, 
der er blevet lortrolig med 64'eren 
og skal igang med mere komplicerede 
opgaver, er det vigtigt med det bedst 
taenkelige perifere udstyr. 

• Med Commodore 1541 diskettesta- 
tion har du 170K \\\ din radighed. 
hurtig dataoverfersel og nem beljening. 
Men fersl og fremmest giver C 1541 
adgang til bele det store soltware- 
udvalg, der findes til C 64 pa diskette 
faktisk et af verdens sterste. 

• Commodore 1702 video-monitor har 
hsj optesningsgrad og giver flotte 
graftske opstillinger Og hvis du i dag 
bruger familiens rjernsyn slipper du 
(or opstillingstid - og familien far lov til 
at se TV en gang imellem. 

• Med Commodore MPS 801 kan 

du printe grafik og skrifl. Den kan ogsa 1 
udsknve fortrykte lomnularer som 
checks, regninger og rneget mere. Med 
MPS 801 kan du ogsd vsre med i 
Datatips. Detnye utrolige system, hvor 
du blot behaver at indtaste din 
udgangsrakke, sa skriver systemet 
automatisk lipskuponeme ud. 
Og maske er du en a( de heldtge... 

Fa mere ud af din computer. 
Med liibeher. der er skabt til den 



o 

Commodore 

Fordi fremtiden forl&ngst 
erbegyndt. 




Anmeldelser og tests 



Softspot 10 

RUN's faste sidertif anmeldelse afde 
nyeste og mest spaandende pro- 
grammer. 




Superscript 13 

RUN har testet det nye iekstbehand- 
Hngssystem tit 128'eren, der kan ar- 
bejde med enten 40 Biter 80 tegn. 

Dervarengang 14 

RUN's taste adventure-sider med 
omtate at de nyeste spit. 

dBASEIII 18 

RUN har som det f0rste danske com- 
puterblad en anmetdelse af den nye 
version tit PC'eren. 

Boganmeldelser 48 

V/" har fundet lassebrilleme frem og 
kikket p£ adskiffige boger. 




1901 51 

Commodores nye monitor har ladet 
vente pa sig r men nu er den kommet, 
og RUN har testet den. 

Young Software 57 

Et nyt dansk firma, der bl.a. har lavet 
et IHIe nemt database -program, 

Ordenitingene 64 

Hvis du er et rodehoved. har DATA 
BECKER et mere avanceret databa- 
se-program tfl dig. 



Tips, tricks og vejledning 



Begyndersiden 16 

Der er sikkert mange nybagte com- 
puterejere, der har brug for en hfsel- 
pende Mnd fra RUN's begynder- 
side. 

Comal 80 skole 20 

Femte del af RUN's Coma/ skole, 
hvor alle kan vmre med. 

COMind/COMud 22 

Dette er opfyldeisen af et behov for 
en speciel iaeserbrevkasse for 
Comal-sporgsma*!. 

Bits & bytes 46 

Vi fortsaatter med at kikke pA nogle 
spasndende adresser i 128'erens sa- 
Haldte zeropage. 

Input/Output 52 

En af vore mest populeere ting er 
denne gang udvidet tit nsesten 4 
sider. 

Variabler... 60 

Tor Engebakken iorklarer licit om. 
hvordan maskinen holder styr p^ alle 
vahabterne. 



Programmer 



Programsektion 25 

Vores programsektion er denne 
gang udvidet til 20 sider. 

Boot-maker 50 

Spasndende program til din 128 er. 
Det loader setv programmed nir du 
taander for computeren. 




Database 58 

Vi har et databaseprogram til at holde 
styr pi indhotdet i tidtigere numre at 
RUN. Programmed der kan bruges til 
meger andet, offentliggores her. 



Andet 



Newsdesk 6 

Vi har fingeren ph pulsen og forteeller 
om de sidste nyheder. 

Lseseranalyse 62 

Lass lidt om resuttatet af RUN's store 
lasseranalyse. 

lndex-1985 63 

Hvad skrev vi om i 1985. Lass den 
samtede mdholdsfortegnetse og be- 
stfl evi. manglende numre. 



APUBUCATIONOf * 
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Mangier du noget til din Commodore 64? 

VI HAR DET 



ADMINISTRATIVE SYSTEM ER 



COMFINANS 



version 
2.0 




Finansbogholdenet lil Commodore b4, der er ble- 
vei en bestseller i lobei afei fir. Over 250 sysiemer 
korcr pi nuvarrcnde lidspunkl. 
COMFINANS er blevel forbcdrct igen. ved at 
man kun fi udskrit! al en konlo pa skxrm. sum! cn 
saldobalance til enhver lid Hastigheden er ogsa 
blevel forogel. 

Kapacitct: I20l>rx>slermgerpr. penode.3lK)konii. 

Og pnsen e r del bedsle 
ved del hole Rvrkr 2,095, NUkr. 



1.595 



version 
2.0 



Fakturasystemel lil Commodore 64 der ikkc bar 
nogcn konkurrcru. 




Fakturering. konloudtog, rente beregning. lager 
OR megee mere Programmer, kan korc selvsuendigt 
cfler imegrcrcs med COMFINANS. 
Kapacilet: 250kunder. 251)varcr. 

Ftirpris ta.Z59Ss 4 

NUkr. I if %J%M 

Beggc systemer sitmlet kun kr. 2.995,- 



SP/ENDENDE UDVIDELSER 




Parallel Printer 

Interface med 16K buffer 

Med dclle interface kan man tUslulte 
narsicn enhver parallel primer til sin 
Commodore o4. Den tilsluites den 
serielle udgang benylier 
ikke noget software 

Pris kr. I ■ I U4 




80 tegns tekst- 
behandlingskort 

Her far Du et 80 legns kort mcd DANSK tckst- 
bchnndling Endelig kan man se SO legn pi 
skier men. nar man skriver sine breve. Entlvi- 
dere harden ei digitull ut. fasttrysning a( 

Priskr. I ./ 4D 



COM-IN 64 

El hell nvt produkt fra MCH. 
COM-IN 64 erel kommunikii- 
lionsinterfaec mcd facilitec som 

fplgends; 

CW. RTTY . TEXT, MODEM . 
MAILBOX, AFSKOUT. 
K<>mmunikutionsinterl'aecl lil 
begynderen ogden 
pri'litssninelle 4\ f%*%^% 



Eprom braender 

Her er Din Eprom bnender til 
Commodore 64. 
Software er na- 
turligvis medi 
prisen. Bramde- 
ren kan bramde 
eprom typet fra 2508 til 2712X 
Endvidere medfulger der Eprom- 
kort lil ttlslulningafde F.proms 
man har bramdi. -4 Oilfl 

Pris kr. I .*J*KJ 




Eprom s letter 

Eprom slcttercn kan sleue op til 
fire liproins 
ad ganger! og 
arbejder t'uld- 
siarndig 
uafh&ngigal 
compulercn. 



Pris kr. 



707 




Motherboard 

Tillader lilslutningaf ftere modu- 
ler af en gang. F.eks. Sll tegns 
korl og Simons Basic. 
Mothefboardene er nfltflfUgvfS 
med omskifter. 

2 parte 241 

S pone 741 j™ 



DE BEDSTE B0GER 



fra 1st Publishing (Data Becker) 



Tricks & Tips 

Bogcn eivendecriil. hvnrdan man 
lavcr cnckiivc programmer, ved brug 
ut ulallige programck>emplcr. Den 
danncr Kiggnind for Imping af sii'rrc 

Pris kr. 248,- 
Tricks and Tips disk mcd 
alle pmanimn-vr kr. 85,- 



ft 



Adv. Machine ^ 
Language 

Dcnnc hnger en locisatiiclw at 
Miichlne Language bogcn. ag gar 
mere i dvhden mcd maskinprogram- 
mc ring. Bogcn er uundvirrhgfordcn. 
<M»m omker ai Mj\c Inrilrc i nl pro- 
gnniRUR i moskinkodc Pris kr. 248,- 



Anatomy of 64 

Bogcn gar ruldmrndig i dybden mcd 
Commodore W og dem virfccmaoV*. 
Dcnhurt.ek*. cn deiuljciei ROM Mm- 
ning mcd lorklaring. IJesudeu mange 
cksemplcr pa programmer 
sa man kun prove del hele 
IjKt&m. Prli kr, 248,- 
Bogcn enhver Commodore 
cjei burdc bave. 



Idea Book »^ 

B(>gcn er c n forstsffiiclse 
lil Trick* & Tips Dcnbirelpcrcnigang 
mcd urns prngrammt'nngwipgaver 
oganaly&crcr forskelllgc ■■(.■.: n 
pmgnimmer Bogcn der skullc »tii pu 
binlnldc Pri5kr.248,- 



Anatomy of the 1541 

B^»gcn giver cn fuldsiicndig l»c*knvcl- 
\e .If. hvordiUI Du bcdM udravlier lil 
din VC 1541. Boeen mdeholdcr des- 
uden en luial KOM4i8tning af 
DOS'cn. Bogcn man ikkc 
kan u nclvoire Pris kr. 248,- 




Graphics Book »W 

lliir ilu prtdilcmcr med al 

lave graltk pa Din Ciunmodurc M. 

Jkke rneref Bogcn hnr olcwmpler pa, 
hvortlim man kan bruge bojopUw- 
ning5grankkcn pa ('ommodiTc 64. 
Pris kr. 248.- 



Machine Language 

Moskiiwprogspfograinnicring cr 
yderst flekulvlt og megci liunigere 
end Ba«c B-itgen cr cn begyuderhog 
ogfortarllerom dc grundliggende be- 
greber indcnfor mukin- 
koden. Onskcr Du at la:rc 
maikinkodc - her er bogen 
du har dromtom. 
Prrs kr. 248,- 




Peeks & Pokes 

Bogcn cr et QpsiaO- »* 
vicrk lil al brugc ullc dc nynigc adto- 
set . der findcs pa Commodore M 
Dcnnc bognmnandlcrdci. mimgc 
Commodore b4 ejerc htirwivnet. 
Pris kr. 225,- 
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Det blev en god |ul for Commodore. 
Nassten 20.000 Commodore com- 
putere blev solgl i label af december. 
128'eren tegnede sig for ca. en fjer- 
dedel, 64'eren for over halvdelen, og 
resien fordelt pa de ovrige maerker- 
isser C16. 

Det mest overraskende er 
64'erens fortsalte kaampesucces. 
Hver eneste gang der kornmer en ny 
computer, tror vi, at den grim me 
"brodkasse's" dage er talte. Men 
nej, den er »still going strong*, for 
del er indholdet, der taeller. 

Det meerkede vi ogsa, da vi gen- 
nemgik vores Iseserundersegelse. 
Den fortalte os med al onskelig tyde- 
lighed, at del er indholdet af RUN, 
som teserne ssetter sa stor pr;s pa. Vi 



vil naturligvis blive ved med at holde 
bladet pa samme seri0se niveau. 

Kritik har vi selvtelgelig ogsa faet. 
og det forste resultat af denne kritik 
har du sikkert allerede set t da du tog 
btadet i handen. Vi har moderniseret 
udseendet lidt, og fremover vil ogsa 
indholdet blive tilpasset Issemes 
onsker. 

Vi har pa lorsiden klasdt en Com- 
modore computer af. Den mister der- 
ved pludselig sin identitet og ser 
anonym ud ( men det er stadig en 
Commodore computer, for det er 
indholdet, der er det vigtlgste. 

Vi ser maske ogsa lidt anderiedes 
ud end tidligere, men for vores ved- 
kommende en indholdet ogsa stadig 
del samme. □ 




Byens storste 
computercenter 

De friske mikromEend pa 0sierbro kender markedet og kan rade dig, 
uanset det gastder compuiore W erhverv eller frilid. 



Hos Mibola Under du de rig- 
tig^e alternan ve lilbud - osse 
nardet gaalder flnansiermg 



MIBOIA 

/MIKRODATk 




Gsierbrogade 117 - 2100 Kebenhavn 0 - til. 01-18 3366 



NEHSDESR 



at Flemmlng Lerbeek 




Slsse-knap 

En resetknap er en vaeldig rar ting. 
Det kan vaare enorrnt praktisk at kun- 
ne komme ud af en situation pa en 
uortodoks made eller simpe'then fa 
stoppel en hablos situation. Men re- 
set-lasningen via den senelle port 
erude efter at de nyeste 64'ere ikke 
har nogen mdre forbindelse tit det 
ben, man normal! bruger. Derimod er 
det Vesttyske firma Computertech- 
nik. Wilhelrnshoher Strasse 66, 5828 
Ennepetal 1, leveringsdygtigtig i en 
ny reset-anordning, Et simpelt gen- 
nerngangsstik, der kortslutter et par 
forbindelser i User-porten 10 DM 
koster reset-knappen. 




-flmmm 



Tre*i-ener 

Endelig har en eller anden taget sig 
sammen til at foretage en simpel og 
dermed pris-overkornmelig (25 DM) 
losning pa de evmdelige tnd- og ud- 
tagnmger at moduler i User-porten. 
Op til ire moduler kan bruges samti- 
dig og man far oven derudover en 
reset-knap. Adr:: Dela Elektronik, 
Krefelser Strasse 66, 5000 Koln 1, 

Tryk pa 

Star man lige og skal bruge el Centro- 
nics interface til en printer, er det 
maske lige sagen med 92008/G fra 
tirmaet Wiesemann, 5600 Wuppertal 
2. Dette Interface udmaerker sig ved 
at have en 8 Kbyte buffer, grafiktryk 
pa 1 ;1 ( fuld kompatibilitet med Epson 
printernes krav og kan tilsluttes bade 
C64 og 128. 



Avis 64'er 

Del Vesttyske firma Softline, 
Schwartzwalderstrasse 8a, 7602 
Oberkirch, har udviklet et virkellgt 
interessant stykke software til C64. 
Isaar skole-, spejder- og andre for- 
eningsbladfolk kan nu fa et leenge 
ventet produkt. Det er softwaren 
->Newsroom«, som ger del muligl at 
fremstille en avis eller en anden tryk- 
sag. Gennem en tekssbehandling la- 
ves selve brodskriften - den tekst, 
man Iseser. Dernaest kan man tegne 
illustrationer med en grafikpakke, og 
begge dele kan lay-outes. og vises 
sa na^r det faardige resultat som mu- 
ligt. Samtidig star der 600 fserdige 
grafik-udkast ktar, altsa f.eks. pal's, 
diagrammer osv. 



Super soft 

Del engelske firma Precision Softwa- 
re er nu pa vej med to super-softwa- 
res. Det drejer sig om nye versioner 
af kendte 64-versioner. Blot er de 
hurtigere og selvfolgelig mere »rum- 
melige*. Den ene af de to pakker, 
som ventes om meget kort tid, er 
Superbase 128. som drager nytte af 
128'erens 80 tegns mulighed, men i 
ovrigt ogsa kan kore i 40 tegns mode. 
Ikke faarre end 128 datafelter med op 
til T 108 tegn pr. indtegning. Der star 
op til 4 sider til radighed for hvert 
datakort. Den anden super-software 
er omtalt andet steds i bladet Det er 
Superscript og dette program arbe|- 
der ideelt sammen med Superbase 
128. 



□ 



■ 




Ny PC'er 

Commodore er nu ved at vsere klar 
med endnu en PC'er. Det er PC1 0 og 
PC20, der far selskab af en PC30. 
Den nye opkomhng vil vaare de cvri- 
ge overlegen, men alligevel fuld 
kompatibel. Det bliver en MS-DOS 
kompatibel 16-bit maskine, som har 
en indbygget 20MByte harddisk og 
en 360 Kbyte diskettestation. I Vesl- 
tyskland biev den for nylig omtalt pa 
den store messe i Munchen, og her 
blev en pns pa 8.100 DM nasvnt. De 
512 KB-RAM, som kendes i dag, er 
pa PC30 forberedt til en udvidelse pa 
op til ialt 640 KByte. Produktionssle- 
det er som for de ovrige PC'ere fra 
Commodore i Braunschweig. 
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Wordstar 

Professionelie tekstsystemer er ikke 
hverdagskost. Heller ikke til 
128'eren, men nu kan man imidlerlid 
fa det CP/M drevne "Wordstar* 
tekstprogram. Ikke bare far man el 
tekstprogram med alle • og jeg gen- 
lager alle - de tsenkelige finesser, 
man gar og savner i andre program- 
mer. Man far ogsa en sofiwareslyret 
centronics-flade via user-porten. Det 
program glaeder yl os til at vise ved en 
saerlig lejlighed. 



Amiga pa ve] 

Englsenderne glasder sig. Inden Isen- 
ge ventes den fcrste specielle Amiga 
pa vej ud pa markedet. I maj vil de 
forste PAL maskiner na landet. og del 
egentlige publikumssalg vil starte i 
juni. Det sker giennem specialforret- 
ninger og ikke gennem de store soft- 
ware/hardware huse. Kun pa den 
made regner Commodore i England 
med, at disse lantastiske maskiner 
kan fa deres rigtige salg/introduk- 
tion/service. Men i England kommer 
der efter planerne el par software- 
pakker. Det er Kickstart, der inklude- 
rer Amtgados'en som er lavet af det 
britiske firma Metacomco. Samtidig 
er der et program kaldet Extras, som 
indehoider forskellige demonstra- 
tions- og Instruktions-programmer. 
Desuden kommer som ventet ire an- 
dre softwares med textcraft, graficrafl 
og musicraft. 



Bedre sent end... 

Hvad nyl byder 128'eren egerrtfig 
pa? Det spsrgsmal stiller isasr de 
konkurrerende firmaer til Commodo- 
re ind imellem. Ja, i hvert fald mulig- 
heden for at kore i CP/M ved h|£elp af 
den indbyggede Z80A processor. 
Men hvad nytte er den til, hvts Com- 
modore ikke oplyser sine kobere om 
f unktionen. Det er et helt nyt omrade, 
sa derfor er det ufatteligt, at man forst 
nu Kan fa" oplysnlnger om den mere 
programmaassige udnyttelse af 
CP/M. Det kan ske ved at betale 350 
gode danske kroner til en af Commo- 
dore-forhandlerne. Sa~ vil nan sand- 
synligvis sporge. hvaddu onsker. Du 
skal sa sige: »Den manglende manu- 
al til CP/M-. 

Og hvad udleverer han/hun sa? 
Jo. to disketter med en rsekke utilities 
og en udviddet assembler specielt til 
Z80-mode. Samtidig er der pa diske- 
ne en rsekke nedvendige sourceko- 
der, hvis man selv skat til at prove 



krsefter med alvorllg programmering i 
CP/M. Til diskene horer hele Ire ma- 
nualer: CP/M PLUS ^-User's Guide*, 
CP/M PLUS -Programmer's Guide« 
og CP/M -System Guide- Men de 
barske reahteier: Vil du udnytte din 
128'er fuldt ud, ma du punge ud med 
350 kroner ekstra - endnu et argu- 
ment i konkurrenternes annoncer, vil 
jeg mene. 




Dfgitalisering 

Hidtii har man mattet notes med sort/ 
hvid digitalisering af billeder, hvis 
man ville beholde mere end foret i sin 
tegnebog. Men med en 64'er og 400 
DM til en ny farve-digitaliser bliver 
der kulor pa tilveerelsen. Programme! 
fremstiller billederne i Koala-pamter- 
formatet, sa en videreforarbejdning 
med dette beromte tegneprogram er 
mulig. Hardwaren tilsluttes User- 
porten. Herligheden saslges af Fule 
Electronic Trading, Birkenstrasse 22, 
6057 Dietzenbach, Vesttyskland. 



128'er fejl 

Der er tilsyneladende en fejl et eiler 
andetsted i Commodore 128. 1 hvert 
fald kan der i 80 tegns mode optraade 
en slribe i ho|re side af skcermen og 
st0| fra denne fejl. Altsammen, hvis 
man forsoger sig med hojoplos- 
nmgsgralik i denne mode. Lad os 
hore fra jer - breve tak! - hvis I har 
oplevet noget tilsvarende. Skulle I 
ogsa have en losning pa problemet, 
er I dobbeH velkommen. Sknv lil re- 
daktionen. 




Sa kom 1570 

Endelig kom sa 1570 diskstationen. 
Det er en heriig sag at bruge den 
sarnmen med 128'eren. Fartglasde. 
Det er man ikke forvasnt med, nar det 
gaslder Commodores 5 1/4" disksta- 
tioner. Men nu er det aitsa sket. 23 
sekunder om en formattering. 1 4 se- 
kunder om at indlasse 200 blokke. 
1541 er - gab - 2m05sek. om det 
samme. Men arbejder man i 64 mo- 
dus ma man klare sig med 25 sekun- 
der. Men under alle omstaendigheder 
noget hurtigere. Under save'ning gar 
det noget langsommere, men allige- 
vel hurtigere, Men hele 1rn52sek. 
om 200 blokke, 1541 uden var kun 
ltd t lasngere. nemlig 2m25sek. Sa- 
dan prassenterer 1570'eren sig. med 
daekslet fjernet. 
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Prof, software til C128 

Word Writer 128 - Swift Calc 128 - 

Data Manager 128 

Disse programmer har htdtil kun 
vasret tllgaengelige lor dem. der har 
en IBM PC (eller en kompalibel PC), 
men er nu oversat til C128. 

Ifolge softwarehuset Time Work 
hgner de to maskmer hinanden pa sa 
mange punkter, al en oversaattelse 
laldt helt nalurligt. Defmering af det 
nodvendtge antal lunktionstaster 
(CI 28 har "kun" 8). har Timework lost 
ved hjaelp af CBW-tasten. Det er 
nodvendigt, da Work Writer 128 ar- 
bejder med 11 tunktionstaster. 

De 3 programmer kan Male" sam- 
men. og alie er med boot. Alle 128 
RAM bliver udnyttet, 80 tegns skasrm 
og programmerne arbejder sammen 
med bade 1541 og 1571 dtskettesta- 
tion. 



Word Writer 128 

Indeholder skaerm kalkulator, biblio- 
lek med stavecheck og formatterer et 
dokument pa ca. 1 sekund. Pull- 
down menuer. 

Swift Calc 128 

Kapacilel: 250 linjef af 250 kolonner. 
hvilket giver 62.500 arbejdsceller. 
Udregninger med op til 17 cifres noj- 
agtighed. tillader brug af minimum-/ 
maximum-veerdier, absolutte va=r- 
dier, potensregning, annuitetsreg- 
ning, indbygget IF. ..THEN... ELSE 
oplion. Automatism beregning af 
••hvad hvls...-. Mullghed for grafik. 
Udskrivning af del-ark. udskrivning 
vertikall eller honsontalt. POP-UP 
vinduer og PULL DOWN menuer. 



Data Manager 128 

Form onenteret, skeerm og udprint- 
ntng er ens. Ved indtastning tillades 
at hele forrnatetses for indtastning af 
data. Fern sorteringsmader, data kan 
sorteres alfabetisk. nurnerisk, krono- 
logisk eller ved en kombination af alle 
3 mader. 

Mail-merge (flette-facilitet). mulig- 
hed for matematiske udregninger. 

Redaklionen kender endnu ingen 
dansk importer. 

Producent: TimeWork, 444 Lake 
Cook Road, Deerfield, IL 60015, 
USA. 



Og vejret 

Hvem er ikke Interesseret i at lolge 
vejret pa nasrmeste hand. Nu er rnu- 
ligheden der for alvor. I Vesttyskland 
har man lor nylig praesenteret en 
modtager til vejrbilleder fra Meteosat. 
Prisen var lige under 3.000 DM, sa 
det har maske interesse for skoler. 



Video klip 

Som video-fotografer ved, er det een 
sag at fa sine optagelser I kassen, og 
en anden sag at 1a tingene klippet til, 
sa andre kan holde ud at se pa det, 
Ved hjEelp af sin 64'er og en kombi- 
nation af soft - og hardware fra firmaet 
Creative Video, kan man nu forbinde 
to videomaskiner og opna en klippe- 
nojagtighed pa 300 ms. (professio- 
nelle maskiner klipper med en nojag- 
tighed pa 1/25 sekund). Via userpor- 
ten kobles 64'eren mellem to maski- 
ner. Start- og stoptidspunkt for et klip 
programmers ind, og sa korer toget. 
Forelobig virker systemet pa VHS- 
maskiner. Prisen er omkfing 1,600 
kroner, og ftrmaet findes pa adressen 
Creative Video, Post.fach 1501, 8520 
Erlangen, telf. 091952726 1 Vesttysk- 
land 




srna flyvepladser, campingptadser 
og andre foretagener. for hvem 
10.000 kroner er en cverkommelig 
sum. Forudsaetningen tor at modtage 
er desuden, at man har en C64'er 
eHer en 128'er. Det er firmaet Print 
Technic, som prassenterer nyheden. 



Dampfjemsyn med tekst-tv 

Commodore har nu udviklet en de- 
koder, som tilsluttet en C64 eller en 
128'er er i stand til af fa ethvert 
fjernsyn - selv et, der er sa gammelt, 
at det er drevet med damp - lil at 
fungere som et super moderne 
tekst-tv. Normal! har disse nye fjern- 
syn en sakaldt Sratc indgang, der kan 
bruges tit at modtage de kodede sig- 
naler. Forelobig er det kun i Vesttysk- 
land, Commodore saslger dekoderne 
og den tilhorende software. 
Prisen er ca. 2.000 kroner. 



Taber ikke luften 

Det er mere end asrgerligt at miste sit 
program blot fordi der opstar et 
stromsvigl. eller man af en eller an- 
den grund ma afbryde sin computer. 
Den sag kan loses, og firmaet Rqqs 
prassenterede for nylig en "Soft- 
Prom- Modul«-l0snmg. fvlodulerne 
kan rumme op til 2*8 Kbyle, er bat- 
teri-forsynet, opdelt i en/to blokke og 
forsynes med data som enhver al- 
mindelig RAM. Modulerne bruges 
naturtigvis I den saedvanlige modul- 
indgang. □ 



TOTALLEVERAND0R AF EDB-UDSTYR! 



En 128K computer, meo alle rr«ul>gheaerne indbygget Ved hjaalp al 2 processor er det muiigi at 15 
1 28'aren HI at optrsede som er> Commodore 64. son CP'M eompbter og natur ligv>s som Commodo- 
re 12B Med mulighed tor at kere alt ekslsterendeW software. erC » 28 f odi stajrk Dadenogsakan 
kore CP/M 3.0. vil Commo<»re 128 ogsfi vaare vele-gnet (il al lose administrative opgave' med 
Wordstar, Multlplam. Dbase, Perfect calc. Perfect filler. Perfect spellet. software serlen JANE saml 
andre CP/M losnmger Commodores slanke PC look lover ikke for meget Tastaturet er elegant Ind- 
rellet. med logtsu opdelmg al lasteme. hvilkel gor aen velegnei m lang lias brug, I eks. lekslDe- 
handlmg eiler Merre talopgaver 

Commodore 128'5 Bas*: 7 0eren kraftigf orbed ring al version 2.0 ogOyder pa virkeiigt mange laci- 
litetei. Detle gaslder siruktur. gralik, lyd/musik. og funkdonsKommandoer Derudover del nye DOS 
og en raekke njaalpefunklioner De r»ye graltske komrnandoer giver bU mutiQhed for kQMionfl de- 
tect, indbygget sprite designer, skaarm vinduer, toad'save sprites oq meget andel Skaarmen kan 
opdeles som kambineret tekst/grafik formal, tekst tor rtOTBO legn, grafik skierm. alt afhajngtgi al be- 
hov 

Til commodore 128 er de>t ogsa muhghea for tilslutning af CP/M diskette slat ion. monitor/TV. printer, 
modem, joysilck. cartridge, exlem RAM udvidelse til 51 2K. Kamera og mange andre facilileter 
Commodore 128. eren lovende computer lil proiessionelt og hobby brug 



COMMODORE 128 ™§3| 



128 K RAM 





AMSTRAD CPC-61 28 



128 K 




Amsfad CPC 6126 er Amslra-ds nye pnsDllhge ttibud ill de mange senose Amstrad brugare. Amstrad CPC 6128 le- 
veresmed 128K Computer, indbygget 3" 180K diskeltedrevog monocrom/farvemonnor. 1 stK systemdiskette med 
en lang raakke nylteprog ramm er saml fyld ig dok umen tation Amstrad C P6 1 28 er tuldt kompatibel med Amstrad CPC 
664 09 derlgennem 'As allerede et start programudvalg. til Amstrad CPC 6128 felger programmenngssprogene Ba- 
sic og den hurtjge program udfersei samt de mange grafik og hjaslpe/nyttelunklwner. Derudover operaiivaystemor- 
ne AmdosogCP/M* Med CP/M «• kan man koreCP/M software og dervea benytte Amstrad CPC 6128 fuldl pro- 
fessional! so*n el yderst suerkt aiternaliv III langi Oyrere losnmger Amstrad CPC 8128 er loroeredt for tilsiutntng al 
mus. modem, bandoptager. 3" og 5 '/* "diskertestation og meget andet tilbehor 
Amstrad CPC 6128 teveres med dansk tastatur mod merprrs 



AMSTRAD PCW-8256 



256K Kr. 



Amstrad PCW-8256 er vel nak markedels biliigste PC . PCW-825-6 lovores som standard med 256Kb 
ram, indbygget 3" diskette drev. grort monitor (High Resolution). Loco-Scr.pt lekstbehandlmg, ver- 
dens mest udbrodte 8-bil operativ system CP'M . , Basic oversaeiter. Dr Logo, samt malrixprinter 
med cprrespondanco kvalitel 

Aide 256Kb ram. erca. ll2Kbotgamseret sorn RAM disc.ovs. man slipper tor venietld meilem del- 
programmer, og far dertoren nurtigereafvikllngaf t eks. Sorctm'sSuoerCalc, Microsoft's Multiplan 
og NewSlarsNewWord. 

Den medtolgende printer vll, ved udskrlfl under CP/M. benytte sig at Epson's pnnlerkoder for at go- 
re mstallerinq a' nyansitaftet software pfoblemffit. 

Amstrad PCW-8256 vd viere meo Id at ssetleyderllgere gang 1 decentralisermg at virksomhedernes 
edD-udstyr. Ekstra tilbeher som SUB-drev p5 720 Kb 'ormaleret , RS-232 Seriell interface m u 





ATARI 520 



512K 



En512K PCdatamal, derer sa sleerk og avancergt, ogiit si lav enpris, aldeinuogsi e» muiigt lot 
private b'ugere. at arbejde prolesstonell hjemme. Atari 5205T vil ligeiedes vcere el yderst staf'kt PC 
aiiernaliv til allerede kendte PC dalamater 

Atari 520ST bliver levarel med 500K diskettedrev. monocrome monllor og grafihmus 

Oesuden medfotger 5 orofes&onetlo programmer. • 

1 . BASIC 

2. ST. WRITER Teksmehandling. 

3. TOS (Traimel Operating System), baserel pa CP'M 68K 

4. DOODLE Gralikprogram 

5. LOGO Programmer ngsspfog 



PRISCHOK PA KOMPATIBLE PC'ERE 



KONFIGURER SELV DIN PC! 



Moiherboard Ind. CPU-8088, BIOS og 256K-RAM ,.Kr. 2455.00 

Ropny Cont roller Bofad lor 2/4 dlsc/lape ...Kr. 816.00 

Colour Grafik Board Kr. 1143.00 

Power Suply 140W Kr. 1225.00 

Multitward med 384 K RAM, Clock, SERVPAR Pon ,Kr. 1 881 .00 

Monocrome Gralik Board -Kr. 1635.00 

Ram Board incl. 512K RAM Kr. 1635.00 



PRIS FRA KR. 8.700.00 



TastatufUS-keybord 

Prototype Board , 



Kr. 1061 .00 

Kr. 242.00 

Indbygningskasse mad alle dele Kr. 81 6.00 

Floppy disk drev. dobboRsldet. 40 spor Kr. 1 1 84.00 

Eprom Braender Board -.-Kr. 1307.00 

Harddisk Controller Board - Kr. 2455.00 

HarddiskiQMB Kr. 4914.00 




Alle prlser excl. 22°/o moms. 



SPECTRUM 



r 



Hostrupsvej 2-1950 Frederiksberg C - Tlf. 01 - 37 22 81 
Hovedvejen 56 - 2600 Glostrup - Tlf. 02-96 -43 44 



Hos Spectrum erfremtiden beqyndt Udviklingen af com- 
putere, tilbehor og software gar meget stasrkt, og vi har 
f ingeren pulsen. Vi far konstant nye produkter, og vej- 
leder gerne med priser, produktbeskri velser og yder for- 
stehjaelp. Spectrum harartid dagsaktuelle priser. Vi opret- 
ter gerne konto uden udbetaling. Alle varer forsendes 
over hele landet. 




Bridge for alte 

Uden pa forhand at have 
noget som helsl kendskab 
ill bridge, kastede \eg mlg 
ude i dette spil. 

Du spiller mod compute- 
ren. og spiller den hand, 
der heddder *>syd«, og 
computeren spiller de an- 
dre hasnder. 

En glimrende manual 
forklarer spillet, og under- 
vejs forklarer computeren 
kosenkvenserne af dil bud. 
Du har derefter mulighed 
(or at traakke budet Wbage, 
hvis du foler. du har kvajet 
dig. 

N3r spillet er slut, tiar du 
mulighed (or at fa aile kor- 
tene vist, hvilkel er sEerde- 
les lasrerigt. 

Jeg havde sorn sagt ikke 
del ringeste kendskab til 
bridge i torvejen, men spil- 
let har givet mig »blod pa 



tanden*. og i morgen gar 
jeg pa bibhotekel for at laare 
noget mere. Del kan da 
ikke vasre meninges at sa- 
dan nogle andsvage chips 
skal kunne sla mig hver 
gang!!! 

Et glimrende spil, som 
mange burde stifte be- 
Kendtskab med. 

Titel: BRIDGE PLAYER II 
Computer: CBM64/128 
Pris: Band: kr. 178,00 
Betjening: Tastatur/joyst'ck 
Fabrikat:Sagittarian Software 



'•Gru-fuldt" spil 

Da jeg sa tillen. The Rocky 
Horror Show, taenkte (eg 
straks p£ filmen af samme 
navn. 

Jeg har set filrnen. og 
glasdede mig derfor til at 
prove spillet. 



Min mening (1-13) 




Computerbrug : 


9 


Manual: 


8 


Betjening: 


9 


Vedvarende appel: 


10 


Helheden: 


9 



Tju-bang i rummet 

Vi befinder os i ar 2010; og 
du har netop gennemfert 
din uddannelse pa RUM 
AKADEMIET med den 
bedste eksamen, der end- 
nu er set. 

Du skal flyve et rumskib 
tilbage i tiden, for at rette 
nogle af de onde ting, der 
er blevet begaef af andre 
vassener (ikke rnenne- 
sker!). 

Du kan vaalge mellem 81 
tidszoner, og der er masser 
af rumskibe at pl0kke ned i 
hver zone. Nar du har ramt 
et rumskib, danner dette et 
bogstav. som du skal bjaer- 
ge, for senere at danne et 
ord. 

Selve spillet udspltler sig 
i cockpittet I dit rumskib. 
Instrumenter m.m. er ud- 



maarket lavet og grafikken 
er Hot 3-d veKtorgrafik. 

Jeg synes, at ideen til 
spillet er noget sogt, men 
ellers er det et elegant og 
udrnserket tju-bang spil. og 
for dem, der kan tide den 
slags, er del et godt kob. 

Titel: STAR I ON 
Computer: CBM 64/128 
Pris: 

Betjening: Tastaiur/joystick 
Fabnkat: Melbourne House 



Min mening (1-13) 




Computerbrug: 


9 


Manual: 


a 


Betjening : 


s 


Vedvarende appel: 


7 


Helheden: 


& 



Kort og godt. Hvis du kober 
spillet, fordi du kender fil- 
men, bhver du dybt skuffet. 
En noget tynd kop the. Gra- 
fikken er god nok. men mu- 
sikken er elendig. 




Som regel kan en film 
ikke leve op til den bog, 
den ofte er bygget over. I 
dette lilfselde er der lavet el 
spil over filmen, og her (ai- 
der spillet igennem. 

Selve plottet er svaarl al 
besknve, og foiger heller 
ikke filmen saarllg godt. Det 
er noget med, at den onde 
Dr. Frank'N'Furter har lavet 
en maskine, der laver men- 
nesker til sten. Du skal 
sarnie denne maskine, in- 
den hele slottet letter {del 
er en rumraket!). 



Titel. The Rocky Horror 
Show 

Computer: CBM 64/128 
Pris: Disk kr. 239,00 
Band:kr. 169,00 
Betjening: Tastatur/joystick 
Fabrikat: CRL Group PLC 



Min mening (1-13) 




Computerbrug: 


8 


Manual: 


3 


Betjening: 


7 


Vedvarende appel 


7 


Helheden: 


7 



VII du vaere superhelt 

Rim- og softwarebranchen 
er begyndt at tage htnan- 
den i handen, nar det gan- 
der om at vnde flesi mulige 
penge ud af et project. 

RAMBO er en rigttg 
amerikansk superhelt. som 



du for ojebllkket kan nyde 
pa det hvide Iserred. Nar du 
sa kommer h|em. kan du 
lortsastte loierne med dig 
selv i hovedrollen. 

Din opgave som RAM- 
BO er, at trsenge ind i den 



10 



vietnamesiske jungle for at 
linde en langelejr, hvor der 
er anbragl nogle amenkan- 
ske krigsfanger. Disse fan- 
ger skal du fotografere. for 
derefter straks at begive 
dig tilbage gennem junglen 
for at finde den heiikopter, 
der skal bringe dig frelst 
tilbage til Thailand. Du haf 
faet udtrykkelig ordre pa, at 
du ikke ma angribe fjen- 
den. og du ma heller ikke 
prove al redde nogle al lan- 
gerne - men kan dit hjerte 
bsere at se dine lands- 
maend spserret inde og 
pint, uden at prove at hjasl- 
pe dem med at undslippe? 
Valget erdit! 

Du har visse vab-en med 
fra slarten. Andre vaben 
kan du finde i junglen. Lad 
mig i flasng nsevne nogle: 
kniv. pile, eksplosive pile, 
maskingevasr og raketstyt. 
Husk imidlertid, at du heist 
skal slippe uset gennem 
junglen. Du kan jo Ikke for- 
vente at komme uset gen- 
nem junglen, hvis du bru- 
ger handgranater og ma- 
skingevaer. Der er frit valg 
mellern del isenkram, du 
har pa dig. 

Det var med nogen 
skepsis, al jeg begyndte 



spillet. Det er let at lave et 
spil, der handler om noget, 
der har gaet i biografen. for 
derefter at saslge det atene 
pa navnel 

Jeg ma dog mdrornme, 
at min skepsis blev gjort til 
skamme. Del er et fanta- 
stisk godt spil, og her taen- 
kes isser pa udforelsen at 
spillet. Grafikken er helt i 
top, og glider blodt og nem! 
over skasrmen. Desuden 
ligner sprites og grafikken 
det, det skal forestille. Mu- 
sikken og lydeffekterne 
kan nok ikke gores bedre. 
Alt i alt et spil. der lilfreds- 
stiller enhver eventyrers 
forventninger. 

Titel: RAMBO 
Computer; CBM 64/128 
Pris: Disk: kr. 278,00 
Band: kr. 198,00 
Betjening:Tastatur/joystick 
Fabrlkat;OceanSoftware Ltd. 



Min mening: (1-13) 

Computerbrug: 11 
Manual dansk: 10 
Betjenlng: 9 
Vedvarende appel: 9 
Helhaden: 10 




Til kamp i fortiden 

Har du en computer, 'w du 
mulighed (or at sla ihjel i 
bade fortid, nutid og 
Iremtid. 

1 spillet Fighting Warrior 
er du blevet sendl tilbage i 
tiden til del garnle Egypten. 



Du er Egyptens svar pa 
Rambo, og besidder alle de 
egenskaber, der skal til. for 
at klare dig. Disse egen- 
skaber far du hard! brugfor. 

fortsaattes side 12 ► 




TIPS OG TRICKS I 

Beslst*!-..' ■■■ dHu DATA-BECKER tW 

64 INTERN m.2dia. 

All om i.-'r"i. og 
tlvitnciMDl iifOQ'iinitnering a* C6J 

FLOPPY-bogen. store 

lep'ogfarnmenng l»a begyndSi Itl 
QlQfliillDim 

grafikbogen 

En b*6tS"Jtlw III gralikcograTime 
ring VolBgnet lof Mv^l booyfliWre 
wiOcaKoinna $oni wofesstoneilp 

De 7 bedste DATA-BECKER boger til C64 
oversat til engelsk. 
Normalpris kr. 248.00 prstk. seelges HI SPOTPRIS 

Kr. 129.00 P r stk 

eller alle 7 handbcger forkun kr.698.00 
Det erdabilligt. SADAN! 

NB Ptov selv al udtegne avancen, nar du hober i sei og saslger enkeltvia 



IDEBOGEN til 64 

Me* KoiTitwi W*iens ais'diqhud in 

me< ill nyllig anvenitelse oq M mo 
Wring 

MASKINSPROG I 

En oesisetor oer grundigt s*ptle> 
dtQ tnd i arbuidsgange"* l 65H)pio 
ressoren 

MASKINSPROG II 

Hat Ou slillcl De»enais*at> mfifl m.i 
ih inept OQ # W I-" ■ i ■ n hi al 
t>ii»a professional 



KATALOG 



Righoldig. Over 100 boger og pro- 
grammer. Sporg hos din forhandler eller send 5 kr. 



2 NORSKE BOGER TIL 
COMMODORE 64 

Bind 1 til kr 129.00 og bind 2 til kr. 229.00. Disse 
lo boger giver en nem og overskuelig indforing i bru- 
gen af C64 m. div. tilbehor. Du laeser faktisk lige sa 
nemt norsk som dansk. 

Se bogerne hos din forhandler. 




NORDIC COMPUTER SOFTWARE 

POSTBOX 105 - DK 6950 RINGK0BING 

EnptmDo*" (tf fe<" de 5 nordiske lande. 



11 



fortsat fra side 1 1 

da Farao har kidnappet 
prinsesse Thaya, og det er 
nalurligvis din opgave at 
befrl hende. 

Til at forsvare dig har du 
kun et svasrd og din kam- 



derholdende for dem, der 
gerne vil afreagere via 
computeren. 




perfaring. Pa din ve| gen- 
nem orkenen kommer du til 
at ksernpe mod ardre krige- 
re, halvguder og dcemoner, 
som Farao har sendt imod 
dig. 

GrafiKken er udrnasrket, 
isasr er bevasgelserne af de 
forskellige medvirkende 
hell (in, Lyden er ogs3 god, 
men musikken er ret irrite- 
rende. 

Det er et typisk »sla dem 
ihjel«-spil uden den belt 
store klasse, men dog un- 



Titel: Fighting Warrior 
Computer: CBM 64/128 
Pris: Disk; kr. 249,00 
Band; kr. 159.00 
Bet|ening:Tastatur/|oysticK 
Fabrikat : Me Ibou rne House 



MIn mening (M3): 




Computerbrug: 


8 


Manual dansk: 


10 


Betjening: 


10 


Vedvarende appel 


7 


Helheden: 


8 



Flere hefte 

Helten overaile helte - SU- 
PER MAN - mod sin mest 
uhyggelige fjende DARK- 
SEID. Med sadan en rolle- 
besastning skulle succe- 
sen vaare sikret, og det me- 
ner jeg ogsa, den er. 

Darkseid er kommet til 
vores planet for at indsamte 
de sidste. vigtige genetiske 
koder, der krasves (or at 
lave en frygtelig » Anti-iiv- 
formular«. Disse genetiske 
koder findes heldigvis kun i 
nogle fa menneskers h|er- 
ner, Det er disse menne- 
sker, Darkseid er pa jagt 
efter. Denne |agt foregar 
ved hja?lp af terror og ode- 
lasggelse. 

Heldigvis for hele uni- 
verset og specielt Jorden. 
har vi |o SUPERMAN. Der- 
med har vi et godt oplaeg til 
et spil, hvor det gbde end- 



nu engang beksmper det 
onde. 

Selve kampen udspiller 
sig i 5 kampzoner. Disse er 
til dels Metropolis' gader. 
og dels i tunneler og andre 
(arhge steder under selve 
byen. Det er Supermans 
opgave at lede mennesker 
til sin sikre sektor, og der- 
med forhindre Darkseid i at 
fa fat i koderne. Darkseid 
derimod skat fange men- 
nesker, og lede dem til sin 
sikre sektor, hvor han sa er 
i stand til at fravriste koder- 
ne fra sine menneskelige 
ofre. 

Foigende »superegen- 
skaben- star til disposition: 
varmesyn, rontgensyn, fly- 
veegenskaber, og telepor- 
tenng. Desuden findes der 
i de forskellige kampzoner 
andre uhyggelige feenome- 



ner, sasom laserstraler, 
rumskibe med bomber 
m.m. 

Nar alle beboere er en- 
ten fanget eller reddet, er 
spiiiet slut. 

Splllet kan dog slutte for, 
hvis enten Superman's el- 
ler Darkseid's energi kom- 
mer under 0. Den, der har 
fanget eller reddet flest, har 
vundet. 

Der er mulighed for at 
vaere Superman og spille 
mod computeren, eller 
man kan veere to, og spille 
mod hinanden. Til det sid- 
ste kraaves to joystick. Alle 
superegenskaber styres 



spiller - men det er jo heller 
ikke rneningen. 

Et godt og kraavende 
spil, der vinder ved neer- 
mere bekendtskab. 

THei: SUPERMAN THE 
GAME 

Computer: CBM 64/128 
Pris: Band kr. 198.00 
Betjening: 1-2 Joystick 
Fabrikat: First Star Softwa- 
re Inc. 





ved hjselp af joystick'et. Det 
krsever nogen ©velse, men 
det kommer hurtigt. 

Jeg synes, at svasrheds- 
graden er stor, og man ska) 
ikke regne med at vinde de 
forste mange gange, man 



Min mening (1-13) 




Computerbrug; 


9 


Manual: 


7 


Betjening: 


9 


Vedvarende appel 


9 


Helheden: 


9 



Spil til C16 

Til vore laasere, der er i 
besiddelse af en C16, har 
vi godt nyt. Fra firmaet TWI- 
LIGHT har vi modtaget en 
oversigt over, hvilke spil, 
de er leveringsdyglige i til 
C16. Firmaet oplyser nasr- 
meste forhandler pa tlf.: 
01-10.55.88. 

Fra ADVENTURE IN- 
TERNATIONAL: Spider- 
man, Hulk, Sorcerer of 
Claymorgue Castle, Grem- 
lins, Cirkus/Ten little Indi- 
ans, Time mashine/Escape 
Pulsar 7 

Fra MICRODEAL: Mani- 
son Adv. 1, Cuthbert in the 
Tombs of Doom, Cuthbert 
in Space. 



Fra SOLAR: Galaxtons. 
Monkey Magic. Robin to 
the Rescue, Mission Mars, 
Quick Draw, Cruncher, 
Knockout, Alien Attack, 
Suicide Run. 

Fra ANIROG: Scramble, 
Flight Path 737, Zodiac, Mi- 
nipedes, 3D Time Trek. 
Star Commander, Petch. 
Las Vegas, Out on a Limb, 
Catacombs, Favourite 
Four. 

Fra GREMLIN GRA- 
PHICS: Xagon Wars, Pe- 
tals of Doom, Tycoon Tex, 
Dork's Dilemma. Sword of 
Destiny. □ 



Ovenstaende program- TWILIGHT A/S PCS Software QUICKSORT ApS 

merer venligst udlant af: Tlf.: 01-105588 Tlf.: 02-305488 Tlf.: 01-241233 
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Jeg har f undet tre ting at anke over, 
1) det er pa engelsk, 2) del indehol- 
der ikke dansk tegnsast, og e] heller 
muligbed for at lave danske tegn pa 
skcerm, men kun pa printer - og 
endelig understatter det ikke 
128'erens muligheder lor grafik. 

Bortset fra disse fa ankepunkter, 
kan man gore nassten alt. 

Der er indbygget kalkulator, sa 
man kan lave og udregne store regn- 
skabsopstillinger. privat eller firma. 
Man kan skrive og udregne fakiuraer 
osv. 

Hvis man har Superbase. kan man 
loade bade Superbase og Super- 
script ind i computeren, sa begge 
programmer Ilgger i hukommelsen 
pa een gang, og udnytte begges 
faciliteter samlet. Pa bagsiden af pro- 
gramdisketten tigger en ordbog pa 
henholdsvis engelsk og arnerikansk. 
Brugervejledningen indeholder in- 
gen anvjsntnger pa, hvordan man 
kan lave en dansk ordbog, men hvis 
man pa en frisk formatteret diskette 
korer nedenstaende lille program, 
klarer det sagen: 



id i Or b»es i*o us 

2GB 5* " II 1 CT I OSAHV " * C KHS ( it ) 

so urt:. ^.H,2,us-*■•,i;,K* 
;o ct«a » 

50 NEK" 

60 OP-:: *,tt,2."DlCT10NAKYUS,S,W 

70 ;lose b 

80 OPEN a,tt,2i"DlCriONARYUKfS,W" 

911 CLOSt 6 



Programmet opretter en dansk ord- 
bog, sa man kan saatte 128'eren til 
selv at finde trivielle anslagsfejl. und- 
tagen altsa fejl i ord. der indeholder 
as, 0 eller a. 

Superscript kan ogsa bruges som 
et (primitivt) terminalprogram, sa 
man via modem kan sende teksttil en 
anden computer. Hvis den anden 
computer har andre ASCII vserdier. 
kan man asndre disse inden afsen- 
delse. Jeg har ikke fundet noget. der 
tyder pa, at man kan modtage via 
Superscript, Baud kan saattes Ira 75 
til 1200. 



Hvis man vil skrive pa begge sider 
af papiret, seetter man blot Super- 
script til farst at udskrive de ulige 
sidenumre - en virkelig fiks detalje. 

At man kan flette, indsastte, soge 
og erstatte, kopiere, flytte rundt pa 
teksten, som den passer en, er med 
■et sa godl program en selvfaige. Li- 
geledes er det en selvfelge, at Su- 
perscript kan arbejde sammen med 2 
dlskettestationer, at man kan soge 
efter et enkelt ord i de breve, man har 
gemt pa sin arbe|dsdisk, saml at man 
kan flette Here blokke tekst sammen 
til et dokument. At man sarntidig far 
bade et kopiprogram og et backup- 
program, er blot flode til kaffen. 



Superscript indeholder faardige in- 
stallations-programmmer til falgende 
printere: 

CBM dot matrix 

CBM typehjul 

Epson 

Diablo 

Qume 

Juki 

NEC Spmwriter 
Ricoh 1600S 



samt en udforlig vejledning (pa en- 
gelsk). om hvordan man mstallerer 
printere, der ikke er kompatible med 
ovennsevnte. 

Udskrifter - der er alle muligheder, 
man kan onske stg, det vasre sig 
understregning, bold. osv. Her er det 
printeren, der sastter grasnsen for, 
hvad man kan og ikke kan. 



Brugervejledningen 

Brugervejledningen er ogsa (for en 
gangs skyld) god, bortset fra at den 
er pa engelsk. Den har en stor, fyldig 



indholdsfortegnetse og et meget 
stort index. Den er af »tage I handen» 
typen , hvor man skridt for skridt lasrer 
at bruge de forskellige faciliteter. Den 
starter med el begynderkursus (de, 
som kender Easy Script, kan godt 
springe det over), sa komrner et kur- 
sus for viderekomne, en virkelig god 
reference manual, appendix'er med 
bl.a. fejlrneddelelser, gloseforkla- 
ring, samt en vejledning i, hvordan 
man opdaterer filer, der er skrevet 
med Easy Script. Superscript 64 og 
Superscript. En god og fyldig vejled- 
ning, sa fyldig, at jeg af hensyn tit 
bladets deadline ikke har naet at lasse 
den helt igennem. 



Det mest imponerende 

Som det fremgar af ovenstaende, er 
jeg imponeret af, hvad man kan med 
Superscn pt 1 28, og sa har jeg endda 
gemt det mest imponerende til sidst. 

Den made, hvorpa skaarmbillede 
og menuer er opbygget. er pa det 
naarmeste genial i sin enkelthed. Det 
hele ligger i de tre everste linjer, der 
er forbeholdt programmet, hvMket vil 
ssge, at der hele tiden er 22 linjer til 
radighed for indtastning af tekst. 
Overste linje fortaeller mode (til- 
stand), samt i hvilken linje og kolonne 
cursor befinder sig. Pa tredje linje 
vrses den fadte tabulatorindstilling 
(der er 8 med en afstand pa 10 tegn). 
Pa anden llnie kan man skrive navnet 
pa det dokument, man arbejder med. 
og sa - yderst til hojre begynder det 
geniale - f1 for menu. 

Nar man try kker fl , udskrives nav- 
nene pa hovedmenuerne i anden 
linje. Samttdig bliver tredje linje brugt 
til at give uddybende forklaring, om 
hvad den menu, der er oplyst af blok- 
cursor. indeholder. Sa hvis man er i 
tvivl. om hvilken menu man skal bru- 

tortssettes side 14 



DET ER BARE 




Tekstbehandling 
til 128'eren nassten uden 
fejl - og uden brug af manual 

af Henning Randmose 
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ge, kan man blot flytte blokcursor hen 
over navnene i menuen. og i h nje tre 
leese. hvornar man har fundei den 
rigtige. 

Man kan vaalge en menu pa to 
mader, enten ved at llytte blokcursor 
hen over det onskede og taste RE- 
TURN, eller man kan taste det forste 
bogstav i den menu, man onsker. 
efterfulgt af RETURN, 
Nu bliver undermenuens rnuligheder 
udskrevet i anden linje, og her (ore- 
gar det pa samme made. 

Nogle at undermenuerne har end- 
nu en undermenu, der sa igen bliver 
udskrevet I anden linje, mens forkla- 
nngen til det ord. der er optyst al 
blok-cursor, star i tredje linje. Hvis 
man onsker al gentage en valgt funk- 
tion, iaster man bio! CONTROL/R, 
og det gentages. 




Konklusion 

Det er det forste tekstbehandlingssy- 
stem. jeg har set. hvor man nsesten 
ikke behover at have en brugervej- 
lednmg, men kan nojes rned at »sla 
op pa sksermem.. ■ 

Superscript indeholder sa mange 
facilileter, at |eg ikke kan nsevne dem 
alle her Som det sikkert er fremgaei 
ai teksten, kan jeg kun konkludere, at 
Superscript 128 er et godt. profes- 
sionelt tekslbehandlings-program. 
som enhver serios bruger kan vaare 
tjent med. 

Tekstbehandling pa PC 128 
vejledende udsalgspris kr. 985.00 



ffier liar 
ttigang... t 

af Robin Sagar 

Udbuddet af nyheder indenfor adventure- 
spillene kommer i bolger. Fra Quicksort 
ApS har RUN denne gang kun modtaget 2 
udeniandske spil til anmeldeise, men man- 
ge nyheder er undervejs. 




Examine 

Hvem kender ikke eventyret »Den 
uendelige historie« at forfatteren Mi- 
chael Ende. Hislorien handler om 
drengen. der ved hjaalp af sin fantasi 
lever sig ind i en bog. Drengen Basti- 
an redder landet Fantasien (Fantasia) 
ved at give den barnlige kejsehnde 
(The Empress) el nyt navn ( hvorefter 
han har nogle dejlige oplevelser med 
sin ven lykkedragen Fuchur (The 
Luckdragon Faikor), 

Dette eveniyr, der er for »alle barn- 
lige sjaale*. matte natudigvis ogsa 
lilmatiseres. Derefter kommer sa el 
adventure over filmen (der dog ikke 
tolger bogen helt). 

Man starter i Fantasien, ftvoi man 
mader Ire tolgesvende. der alle har 
noget grufuldt at berelte. De forteel- 
ler, al landel er ved at blive udslettet 
af "Intetheden- ("Nothing"). 

Du er nu Atreju, der tar Auryn (en 
medaljon al guld og salv. der er en 
stor hjffilp og beskytter mod farer), 
og den har man god brug for. 

Grafikken er meget fin, og en yder- 
ligere finesse er, at man pa skasrmen 
kan se, hvad det er t man basrer rundt 
pa. 

Ordforradet er ikke saerligt slort. og 
man kan fole sig en smule lost ved at 
ord som bl.a. Examine ikke kan 
bruges. 

Spillei er pa lo kassetter og er l Ire 
dele. Man kan ikke fortscette med en 
ny del. for den forrige er lost. I in- 
struktionen stair der. at melodien 
••Never Ending Story- v«l blive spillet, 
mens spillet loader, Dette er ikke 
tilfaeldet pa det eksemplar. som vi har 
modtaget. 



Det er helt sikkert, at dette er el 
spil, man kan fa mange timer til at ga 
med, og vi vil meget gerne hore fra 
lassere. der kan kornme med nogle 
tips - for helt nemt er det ikke. 



Rolterne 

Del nasste spil. leg hartestet, er ogsa 
base ret pa en bog - denne gang ikke 
en bornebog, men en gyser af forfat- 
teren James Herbert, der hedder The 
Rats. I dette meget uhyggehge spil er 
det rotterne, der er ved at tage mag- 
len i London. Din opgave er her al 
udrydde rotterne vecl hjaelp af rotte- 
fasngere, politi og brandvassen. Se- 
nere er der mulighed for at saette 
militaeret ind - hvis du kommer s3 
langt. 

Du er her et anial personer, der er 
kommet i klemme i kampen metlem 
mand og rotte. Du kontrollerer ho- 
vedpersonerne: Harris, hvis radsnar- 
hed og mod gor ham til den, der ma 
overleve; Howard, den unge viden- 
skabsmand. der forsker i rot!e-trus- 
len; og endelig Foskins under Secre- 
tary of State, der har det store ansvar, 
at han skal redde London. Du er ogsa 
den almindeltge mdbygger, der plud- 
selig kommer i klemme I rotternes 
krig mod mennesket, som for ekem- 
pel Paula Blakely, der prover at redde 
sit (orsvarslese barn mod rotterne. 

Nogte gange bliver du konfronteret 
direkte med rotterne i sammenstod, 
hvor det geeider om at tsenke og 
handle hurtigt. Det vil vaere et 
sporgsmal om Itv og dad for den 
person, du spiller i del ojeblik. 



Uttrt gfoueuture JKbbeiiture 




Andre gange sidder du I General 
Headquarters som Foskjns og kon- 
trollerer London Emergency Forces. 
Nar du ser rotternes bevasgelse. ma 
du udleenke en strategi, der kan stop- 
pe rotternes fremmarch. 

Som du kan se ( er dette el spaen- 
dende spil, men ogsa dette er i den 
lidt mere vanskelige kategori. 

Der er ikke megen grafik, men 
den, der er, er meget effektfuld. Er 
korl over London viser, hvor man er 
plaget at rotter, og hvor man derfor 
skal saatte sine styrker ind. I de sma 
episoder. hvor man kasmper direkte 
mod rotterne og prover at overleve, 
kan man opieve rotterne pi lidt naer- 
mere hold. Lydeffekten udebliver 
heller ikke, men prov selv - det er 
sjovt og godt. 



I de sidste numre al RUN har vi givel 
tips til en del af de spil, der er pa 
markedet. Har du problemer med et 
af dine adventurespil, er du meget 
velkommen ti! at skrive til RUN - og 
husk at mcerke kuverten "Adven- 
ture". 

Her er nogle tips: 



Valkyrie 17 

Du skal ind i vsereise 20. Prov at fa 
ngglen fra pigen i baren. 
Husk din skudsikre vest, ellers kom- 
mer du ikke langt. 

Du kan bruge kikkerten ved havet, 
hvis du finder det rette at putte i den. 
Prov at se lidt naarrnere pa fontaanen. 

Terrormolinos 

Der er mange ting, man skal huske 
for airejsen. Til noget af det, skal man 
bruge en stige. Husk al sikre den! 
Harpun og barberskum i samrne kuf- 
fert er ikke nogen god ide. 

Starcross 

For al komme ind i det frernmede 
rumskib, skal man lose det problem, 
der er med luflslusen. Svaret er gan- 
ske simpelt under dine fodder. 




Husk at blasters kan bruges til 
mere end blot at drsebe. Den vil slet 
ikke fungere, hvis label er stoppet. 

Det er vigtigt at fa maskineriet til al 
fungere meget hurtigt, for du taber 
for meget luft. 

STOP 

Ja. dette var lidt til den forhabentlig 
ikke for kolde vinter. 

Hvis du er en af dem. der har brugl 
mange timer pa spillet Hobbitten. kan 
|eg fortaetle, at nu kommer -Lord of 
the Rings*. Det er igen MELBOUR- 
NE HOUSE, der kommer med dette 
spil. Forhabentlig kan jeg anmelde 
det na=ste gang. 

HI slut vil jeg ikke undlade at neev- 
ne, at der fra et nyt dansk firma, 
YOUNG SOFTWARE, er kommet et 
eventyrspil pa dansk. Det hedder slet 
og rel -EventyreK og ogsa dette spil 
vil blive nasrmere omtalt na?ste gang. 
Pa gensyn. □ 



K0B EN FREMT1DSSIKRET 
PRINTER TIL DIN 64'ER 



Hvorfo* kobe en Commodore-pr inter lit din 6<Ter 
nar du iKKe Kan anvende den, hvis du engangstcf- 
ler din 64 r er ud med en stone computer? 

A - CENTRONICS INTERFACE- 
PROGRAM MED PRINTSP0OLER 

Med dette program kan du Illslutte enftver pnnier 
medCentronics-lniQrfacetildin64'er Programme! 
nar indbygget pnnterbut fer. dvs. du kan se-nde (an- 
ge udsknfter a'steo pa en prokdel al et sekund og 
afbeide vtdere mens prinleren akrivef pa »ivet las 
Vedopslariaf programmel or cufforon pa 16 k {du 
har stadig 39 k til Dasic'en). 
■ Varlabel dev.jenummsr. udskrilrhastighed og 
PurterUengde (0 - 32 k) 

• Hardcopy - Kopierer alio sKawmoitioder pa 1 un- 
der 2 sak. ogsa 320 * 200 gra'ik 

• Ekko'unkltan - kopleror all dersendes til skajr- 
men 

• Ekstra basickornmandoer - AT PAPER. INK, 

frame, cls Pris 350,- 

B - CENTRONICS PRINTERKABEL 

Kabel dot forbinder64'eren med en vltkanig primer 
cnpa Centronics interlace. _ . -„ 

• Easyscrlpt kompatibelt rNS tDU," 

C - TEGNGENERATORPROGRAM 

JUKI 5510 og EPSON LX-BO kan tagre op til 256 
specialiegn og delta program h(»lper dig med ai 
destgno legnene 

• Matrix 9 k 11 eller24 k 16(Near Utter Quality) 

• Indeholder 1 Commodore tegnsset 256 tegrr 

Prls 100,- 
D - TIPSPR0GRAM 

Delta program er Kompatibeli mad Tipsbiadets 
Compulertips 1 . dog med 10 nye systemer leveret 
al sysiemkonsiruklor Harald Henchel Program- 
me! udskriver datakuponerne 6 gange hurtigere 
end 802 printeren (26 sek. p* kupon med JUKI 

55l °) Prls 350.- 





EPSON LX-80 JUKI 5510 

E-MATRIXPRINTERE 

Vi har hfinaplukkftt 2 mainxprmtere. som opfyider 
kravene godl kvalltetfpris-fortwld og "tremtidsslk- 
ring'! nemlig JUKI 5510 og EPSON LX-80 
Fremttdssikrede fordi de anvender en international 
standard for printennlerface, er IBM-kornpatiWe, 
nar sKenskn'tstegn. hej skrivehastighed og et lav! 
eto) niveau. 

I - - - label kan du so tordelene ved st 
vKlge en JUKI eiler EPSON printer tH din 64'er 

Cornmo- JUKI EPSON 
Prmtenype dors 002 5510 LX-BO 
Tognmairix 9x8 9x9, 1fl*9. 9*B. 18x18 

IsKonskrifl) Nej Ja J* 

Sxrlve- 

nasitghed BOcps 1 80 cus : 00 cos 

Ant pruoar- 

aettegn 1 236 256 

Ant <ntsmal 

tegnsaat 1 9 11 

Kan nisluites 
and'ocom 
putere end 

Commodore Ne, Ja Ja 

Ve|t. u<mkj» 

DtialncI momtt 2995.- 6975.- 6695. 



Jeg onsker 

Slk. A Centronics interface program a 350.- 

slk. a Kabel a 250.- 

Slk. C Tegngeneratorprogram a 100V 

Slk. D Tipspr ogram a 350,* 

E JUKI 5510-A+B+C-eDa 6975,- 

stk E EPSON LX-80 *A+B*C*Da 6695.- 

allepnserenncl. moms. 

Navn . . 

Adresse 

Postnr/By 

brochure sendesi»l H. O. SOFT 

belob i check VI NKELVEJ 5 B 

postopkffflvnlrtg 3000 HELSING0H 
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HesefvatHVi 



af Steen Schmeltzer 
Der har ligget mange tusinde 
hjemmecomputere unde juletreeet 
sidste ar. og efter den vaerste 
»spillefeber« har lagt sig, begyn- 
der tnteressen for selv at pro- 
grammere at melde sig. Det kan 
ikke undga at give problemer, 
men her pa RUNs begynderside 
vil vi prove at give dig en hjaelpen- 
de hand. 

Du kan taare prog ram rnenng ved 
selvstudium eller du kan ga pa aften- 
skole og lasre det der. Jeg vil anbefa- 
le at starte derh)emme med at lasse 
brugerve|ledningen grundigt igen- 
nem. Indtast sa nogle af de prograrn- 
eksempler, der er vist, og prov at 
eksperimentere lidt med disse ek- 
sempler. 

Husk irnidlertid a! gemme en kopi 
af programmerne pa band eller di- 
skette inden du prover at »kore« 
programmet. Det er aergerligt at se et 
maske stort program forsvinde op i 
den bla luft. fordi man har tastet for- 
ked. Det gor man kun een gang. 

Nar du harstiftetbekendtskabmed 
lastaturet og ved, hvordan de for- 
skellige taster virker, samt forstar de 
mest simple BASIC kommandoer, 
synes jeg du skulle melde dig til et 
kursus af en eller anden slags. 

Til de helt nye computerbrugere vil 
leg give et godt rad. Giv ikke op! Det 
kan virke meget uforstaeiigt og utii- 
gaangeligt; men det gar ret hurtigt 
over. Derefter kommer den store for- 
noielse ved at lave sine egne pro- 
grammer og se dem virke efter hen- 
sigten. 



DIM 

Sidste gang klkkede vi pa 1 variabler 
Vi fandt ud af, at der opstod nogle 
problemer, hvis vi havde brug for 
mere end 1 1 variabler med det sam- 
me navn. Variablcrne var forskellige 
fra hinanden ved hjaelp af et tal f.eks.: 
NAS{0>, NA$(1 ) osv, Nar vi naede op 
til NA$(11) opstod probtemerne. 
Compuleren havde nemlig kun plads 
til 10 variabler med samme navn (det 
har den automatisk), sa derfor skal vi 
nu bruge DIM kommandoen. 

DIM betyder dirnensionering, og 
kommandoen skal heist findes i en af 
de forste linjer i dit program . Gru nden 
til dette er, at computeren skal reser- 
vere plads i hukommelsen til det 
antal variabler. du bestemmer. Der 
bliver altsa mindre hukommelse til- 
bage til dit program, sa du skal ikke 
dimensionere flere strenge, end du 
far brug for. Du ma og kan kun di- 
mensionere samme vartabel een 
gang. Hvis du prover Here gange, vil 
du fa fejlmeddelelsen: REDIM'D 
ARRAY. 

Eks.: DIM NA(tOO). Med denne 
kornmando har du dimensionere t 
100 variabler med navnet NA. Prov 
folgende eksempel: 

10 DIM NA( 
12FORA = 0TO 100 
14 NA(A) = A 
16 NEXT A 

18 FOR T ^ 0 TO 100 
20 PRINT"NA(";T;"' 
22 NEXTT 

Tast nu RUN < return > . Du skul- 
le nu for det forsie fa fyldt de 100 




variabler op med et tal i hver. for det 
andet fa indholdet af alle variablerne 
printet ud pa skasrmen. 




Du skal ogsa huske at bruge DIM. 
hvis du onsker at indhente oplysnin- 
ger til dit program fra lastaturet. isasr 
hvis du kan forvente mere end 11 
oplysninger. Hvis du ikke kan afgore. 
hvor mange oplysninger der skal ind- 
hentes, kan du bruge INPUT eller 
GET til at bestemme, hvor mange 
DIM du skal bruge. Eks.: 



10 IN PUT" ANTAL OPLYSNINGER 

■ 

f 2 DIM NAStX) 
U FOR A = I TO X 
16 PRINT "OPLYSNING 
18 INPUT NA$[A) 
20 NEXT A 



\G NP *; A. 
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Her bliver X brugt til at bestemme 
antallet al strenge 1 NAS- X bliver 
ogsa brugt til at bestemme, hvor 
mange gange FOR/ NEXT lokken 
skal gennemlebes. Hvas du vil afprci- 
ve eksemplet. skal du tHfeje folgende 
linjer tor at kontrollere, at du virkelig 
har del antal oplysninger, du har bedt 
om: 



22 FOR A = 1 TO 
24 PRLNT'OPLYSNING 
A:"=";NAS(A) 
26 NEXT A 



Indtil nu har vi kun kort »i et plan-: 
NA$(1), (2), (3) osv. 



Du kan endda bygge videre og arbej- 
de i "-tre planer*. Dimensioneringen 
DIM NASC30.30.30) skulle give dig 



Man kan imidlertid ogsa arbejde i 3#*3T*31 
»flere planer^, Det kan gores med 
f.eks. DIM NA$<100.100). Resullatet 
bliver: 




«(1.D. (1,2), (1.3) 0: 
NA$(2.1). (2,2), (2.3) osv. 
NA$(3.1). (3,2), (3.3) osv. 
til N AS(100,100) 



Disse 3 linjer bruges kun til at pnnte 
samtlige oplysninger i NAS ud pa 
skaermen. Leeg meerke til, at vi bruger 
den samme X som for til at holde styr 
pa, hvor mange gange FOR/NEXT 
lekken skal gennemlobes. Desuden 
bruges A lil at holde styr pa. hvilken 
NAS, vi undersoger. 



Som du ser, bliver der virkelig mange 
variabler at arbejde med. Da variab- 
lerne i virkeligheden starter ved 
NAS(O.O). bliver der faktisk 



10.201 variabler 



I praksis er der ikke plads tit sa man- 
ge variabler i en 64'er, men i en 
128'er kunne det lade sig gore. 

Flerdimensionerede variabler er 
meget pladskra=vende, sa du skal 
taenke dig godt om, nir du skal arbej- 
de med dem. 

Det var sa alt for denne gang. Frem- 
over vil vi kun behandle en enkelt 
kommando i hvert nummer, for p£ 
den made at kunne behandle nogle 
at de begyndersporgsmal, vi har faet. 
Skulle du selv have el sporgsmal. er 
du velkommen til at skrive til RUN - 
og husk at maerke kuverten »Begyn- 
dersiden-*. □ 
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af Henning Randmose 
COMind 

Til COMAL redaktionen 

Ferst tak for, at I har taget program- 

mering i COMAL op. Jeg haber, at I 

vil fortsaatte. samt cringe nyt om 

COMAL 

Jeg er stodt pa et problem wed 
brug af kommandoen »zone«, n£r 
leg vil udprinte f.eks. talkolonner. 
TaHene pS den sidste linje bliver 
"sedt". iigesom der sker nogle mser- 
kelige indrykninger. Felgende pro- 
gram giver denne udpnntning: 

OOIO ZONE C 10) 
0020 SELECT OUTPUT 
O03O FOR f*«J TO 3? 00 
O04O PRINT \ . 
0050 ENDFOR i 
0060 SELFCT OUTPUT "d? : " 

I 8 3 4 5 £ 7 9 

9 10 II 12 13 

14 15 IS 17 18 19 20 21 

22 23 24 25 26 

27 28 29 30 3i 32 33 34 

(mellemrum mellem tal forkortel at 
hensyn til spaltebredde) 

Jeg haber, at I kan hjeelpe mig med 
en forkiaring pa ovenstaende pro- 
blem og iortmlle mig, hvordan ud- 
printningen kan blive i psene ko- 
lonner 

Venlig hi/sen 
Erik Heriov Pedersen 
Karotinevej 17 A 
9800 Hjorring 

COMud 

Da vi forsoger at vasre pa forkant med 
fremtiden. vil vi nalurligvis fortsastte 
vore Cornal-80 sider, samt bnnge de 
sidste nyheder. 

Efter brugervejledningen er dit 
program korrekl, og del virker da 
ogsa, sa lasnge du arbejder pa ska&r- 
men. Rodet opstar. fordi det skal ud 
pa en printer. I dokumentationen har 
man glemt at omtale, at ZONE ikke 
arbejder sammen med den fysiske 
vognretur pa pnnteren, samt at ZO- 
NE giver en automatisk vognretur 
efter at have udskrevet 3 skaermltn- 
jer. ZONE'S vognretur kommer efter 




1 3 og 26. Lasngden fra 1 til 1 3 svarer 
til 3 s^sernnlinjer, det samme gselder 
fra 14 til 26 osv. 

Det betyder, at du selv program- 
maessfgt skal fortaelle, hvornar du 
ensker vognretur. (Hvis du havde en 
printer, der kunne udskrive 120 
tegns linjer. 3*40, ville dit program 
ogsa" virke). 

Folgende lille program vil give pas- 
ne udskrifter pa en printer: 



OOIO ZONE 
, p 0020 as =0 
" - 0O30 
0040 
0050 
0060 
0070 
0080 
0030 



< 10) 



SELECT OUTPUT "Jp! 1 
FOR i : = t TO 4 DO 
FOR j : =1 to 8 
a : + 1 

PRINT a, 
ENOFOR j 

PR tnt // ivun< 

vognretur 

oioo ercFQR i 

0110 SELECT OUTPUT "dsi" 



ngen 



Hvis du 0ns ker, at enere og tiere skal 
sta lige under hinanden, asndrer du 
blot hnje 70 til 

0070 PRINT USING "##":a, 
hilsen Henning 



COMind 

Del var lige det, der manglede! 
En brevkasse for COMAL-sporgs- 

mM 

Dermed er det bedste Commodo- 
re blad blevet endnu bedre. Tak for 
det. Efter at have lumlet med C64 og 
Coma/ 2 00 i et irs tid, og derefter har 
faet brsendt om til version 2.01 - (den 
dyreste made, men hver en krone 
vaerd!) - er jeg nu kommet til ma- 
skinkode. 

Ifolge manualen er det let at integ- 
rere maskinkoderutiner i Comal-pro- 
grammer. Men hvordan? 

7. Kan man fa en M/C monitor, der 
^passer sammen « med Comaf? 
2 Kan SUPERMON evt. flyttes over/ 
udbygges? 

3. Fmdes der en bog, som beskriver 
nojagtigt, hvordan M/C rutiner byg- 
ges sammen med Comal? 

Jeg h&ber, du kan give mig svar pi 
nogle afmine probfemer for "Comal- . 
programmorer- ? 

Med venlig hilsen 
Kurt Jensen 
LigustervaBnget 5 
7130 Juelsminde 



COMud 

Allerferst. tak for de peene ord. og sa 
til dine sporgsmal. som kan besvares 
under et. 

Amerikaneren Jesse Knight har 
skrevet en bog med titlen "COMAL 
2.00 PACKAGES* (for ikke at forw- 
re tor meget, version 2.00 I USA 
svarer til 2,01 i Danmark). Hvis du er 
nogenlunde fortrohg med princtpper- 
ne i maskinkode-programmering, er 
det bogen, du soger. 

Bogen, der er pa 108 sider, er ikke 
oversat til dansk, og den omhandler 
kun, hvordan du selv laver »pakker« I 
Umcomal. Til bogen fas en diskette 
med forskellige hjaslpevaarktojer, 
bl.a. SUPERMON omskrevet. sa den 
arbejder sammen med Comal. Derer 
meget andet »guf« pa samme dis- 
kette. 

Prisen for bog og diskette er kr. 
215.00 

Bog og diskette fas ved at indsende 
belobet pa giro 6 76 75 75. Comal 
Today, Postbox 1222. 2300 Koben- 
havn S. 

Med Comal hilsen 
Henning 



la 



ADC-data 




fornuftig pris 
kun kr. 3295,- 



Commodore 



COMMODORE 


64 


1995,- 


COMMODORE 


128 


3995,- 


COMMODORE 


801 


2195,- 


COMMODORE 


1541 


2495,- 


COMMODORE 


1570 


3395,- 


COMMODORE 


1571 


3995,- 


COMMODORE 


1702 


3395,- 



Vi har ogsa: PHILIPS skeerme 
eller : EPSON printere 

Ring og sperg pa software 

COMAL 80 kapsel 84 5,- 

SUMMER GAMES II 158,- 

WINTER GAMES 158,- 

ELITE 2 38,- 

MUS t. 64/128 845,- 

SUPERJOY 2 8 138,- 



brother. 



BROTHER HR5 

Den lille printer 
30/sek. 

Tilsluttes direkte 
til Commodore 64 
kun kr. 2395,- 

BROTHER M 1009 

Den jffivne printer 
50/sek . Tilsluttes 
Commodore 64/128 
kun kr. 3995,- 



Seikosha 



SEIKOSHA SP 1000 

Speciel Commodore 
version. 100/sek. 
Direkte tilslutning 
kun kr. 4795,- 




Vi trasffes pa 
telefon 

(09)21 3888 



TELEFONTID 



MAN -TOR 
PRE 
L0R 
S0N 



14-20 
14-21 
9-14 
14-17 



Vi har meget mere end dette! 



Ring og her pa samlede tilbud 



Vi sender 

pr . efterkrav 

til hele landet 



Comalskcle Comalskole Coma 



af Henning Randmose 



t 



del 5 



<OMAL 60 C7) 

En af de store fordele ved EDB er, 
at man pa en enkel made kan lave, 
gemme, hente og asndre data. Vi 
skal denne gang arbejde med de 
to lagermuligheder vi har. nemlig 
diskettestation og bandoptager. 




Nar man fra el program gemmer dala. 
lagrer man sine data i en tile (file 
oversasttes nemmest til kartotek). En 
file, eller som jeg herefter vil omtale 
som en fit, er en datamasngde, der er 
organiseret i et besteml monster, og 
som kan bearbejdes via et program. 

I skolen her skal vi kun arbeide 
med lo typer filer, sekventielle og 
relative filer. Meget kort fortal! er 
forskellen pa disse to filtyper, at en 
sekventiel fil skal mdlasses i sin hei- 
hed, medens man med en refativ fil 
kan nojes med at indleese en enkelt 
postering, hvlket naturligvis er me- 
get hurtigere. men del krsever en 
diskettestation at arbejde med relati- 
ve filer. Forskellen i praksis er, at der 
ved sekventielle liler skal vasre plads 
i computerens arbejdslager lil bade 
program og hele datamasngden, 
rnedens der ved relative frier, udover 
programmet, skal vaare plads til en 
enkelt post. En relativ fil kan altsa 
indeholde lige sa mange poster, som 
der er plads til pa en diskette. 




Sekventielle filer 

Denne gang skal vi kun arbejde med 
sekventielle Tiler, og programmet er 
et "lille* database program. ->Lille« 
sefvom det er det storste program, vi 
endnu har arbejdet med. Det er fak- 
tisk sa stort. at der i nzeste nummer 
folger en 2. del. Da jeg selv bliver 
irriteret over programlistninger. man 
iKke umiddelbart kan arbejde med, 
har jeg delt del sadan, at 1. del kan 
bruges selvstaendigt. 



Startende i llnje 210 skal alt, hvad der 
starefter *>notat-tegnet« // indtastes. 
Det horer sammen med det, som 
kommer i 2. del. men jeg har indlil 
videre blot sat programlinjerne ud at 
funktion med ■>//■< tegnet. 

Ved hjaelp af programmet kan du 
lave en fil. der kan besta af op til 75 
poster, hver indeholdende 5 linjer af 
25 tegn (bogslaver, tal, meHemrum 
eller grafik). Jeg har i programmet 
valgt fornavne, efternavne. gade, 
postnummer og andet. Disse tekster 
kan du naturligvis eendre til f.eks. 
rnusiktype, solist, orkester osv. 

De nye Comal-udtryk er denne 
gang: DIM, PRINT FILE, INPUT FILE, 
READ, WRITE, OPEN FILE, CLOSE 
FILE og strengvanabel 
Har du vaarel med fra starten, skulle 
de ovrige kommandoer vsere veB- 
kendte (hvis du forst starter nu. kan 
tidligere numre rekvireres fra redak- 
tlonen). 



DIM 

DIM kommandoen gor computeren 
oprnaerksom pa. at det efterfolgende 
er pladsreservationer til arbejdslage- 
ret. Jeg har brugt tekstvariablen 
(streng) a1$ til at gemme fornavne i. 
Scetningen 

DIM a1$(75) of 25 

betyder altsa -reserver plads til 75 
kartotekskort med een I inje. hvor der 
er plads til 25 tegn«. 

Her dimensioneres 5 vartabler til at 
gemme data i, dvs. at der i praksis er 
5 gange 75 kartortekskort, hver med 
plads til 25 tegn. Da opbygningen her 
er i raskkefolge. vil del dog opleves, 
som om der er plads til 75 kartoteks- 

Posterne bliver nu indskrevet, og 
nar det er sket, lukkes »doren« til 
arkiv 1 med CLOSE FILE 1. 

I proceduren hent'kartotek sker 



det hele igen pa nsesten samme 
made. Her fortsller READ, at der skal 
lasses fra filen. det skrevne hemes sa 
ind med INPUT FILE t. Her ser du, 
hvorfor q skulle sta som forste post i 
filen. NaT q er indlcest, bruges q til at 
styre, hvor mange poster, der skal 
indlasses. 

Proceduren udsknv'pa'skasrm 
sorger for. at alle posterne bliver 
udskrevet i rsekkefolge. Fof at der 
skal vasre tld til at Icese posterne, er 



kort. hver med plads til 25 tegn. 

Variablerne strengS og soge- 
strengS behandles nasste gang. 

Variablen q bruges til at holde styr 
pa hvor mange poster, der et opret- 
tet/hentet fra disk/band - altsa hvor 
mange poster, der ligger i arbejdsla- 
geret. 

IF strukturen I linjerne 130 til 170 
leeser og meddeler antaliet at opret* 
tede poster. 

Proceduren check'plads sorger 
for. at den reserverede plads ikke 
overskrives. samt at man tkke kom- 
mer til at skrive i en alierede oc-: Bel 
post, da q her oges med een. nar 
man opretter eller tilfojer en ny post I 
proceduren skriv'kartotek. 

Hoved program met korer ic- - 
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aeilskcle Ccmalskcle Ccmalskcle 




LOOP/ENDLOOP. Herfra kan man 
ved hjaelp ai CASE strukturen 
udfere forskellige procedurer (un- 
derprogrammer). 

Nar en procedure er udfort relur- 
neres til lokken. Proc streg udskriver 
ASCIK96) 40 gange efter hinanden 
uden linjeskift. Del sky Ides kommaet 
efter (96). der forhindrer linjeskift. 

Proceduren lagervalg er rekursiv 
(dvs. kalder sig selv). Ved fejlindlast- 
ning sorger IF saetningen i linje 850 




tor at der startes forfra. Man bor dog 
undga, at en procedure kalder sig 
selv, da der hver gang det sker - 
atsaattes et »tlag». Et flag optager 
lagerplads, altsa mindsker det omra- 
de i computeren, der er til brug for 
program og data. Jeg har kun taget 
det med, for at demonstrere. at man 
kan bruge rekursive procedurer/ 
funktioner t Unicoimal. 

Proc skriv'kartotek 

Her sorger Proc check'plads for, at 
dimensioneringen ikke overskndes. 
samt at der bliver skrevet i forste 
ledige plads. Variablen q sorger for, 
at de samhorende poster far samme 
posmummer, da q bruges som taaller 
i parentesen efter tekstvariablen. 



Forste gang der indtastes i proce- 
duren, startes der med tornavn i lm|e 
1110, i linje 1120 undersoger WHILE 
lokken, om der rent faktisk er indta- 
stet noget. eller om der er indtastet 
en torn streng (return). Hvis der er 
indtastet nogle tegn. kommer du Ind i 
lokken, og du kan nu indtaste data til 
de evrige variabler. 

Hvis du nu vil ud af lokken, eller du 
vil indtaste flere navne. startes forfra i 
linje 1220. Det du indtaster her, kon- 
trolleres igen i linje 1120 

Da veerdien af q oges med een i 
proceduren check'plads, er q 1 for 
stor. nar du stopper ved at indtaste 
<RETURN>. og da vi skai bruge den 
sande vasrdt af q, traekkes der 1 fra i 
linje 1240. sa q er lig vasrdien af 
oprettede poster nar proceduren for- 
lades. 

Proc gem'kartotek 

Her startes med, at du indtaster det 
navn, du onsker at gemme dit karto- 
tek under. Nu er det jo Ikke smart, 
hvis du river gang, du sendrede eller 
tilfoiede noget i kartorteket. var nodt 
til at gemme del under et nyt navn. Pa 
band er der ikke noget problem, idet 
der automatisk sker en overskrivning 
af det gamle. eller du kan gemme dit 
kartotek under samme navn (noget 
upraktisk) liggende efter hinanden. 
Pa disketten sker der derirnod en 
»navnekontroK sa hver fit skal have 
sit eget navn. For at undga navne- 
kontrollen og kunne overskrive en 
gamme! fil med en ny, bruger du fa 
som forste tegn i filnavne!. 

OPEN FILE 1 abner -doren- til 
arkiv 1. "(a^+udkartoS gor, at det 
Indtastede navn »ia3gges til («'«, sa 
computeren laaser del som om det 
hele stod i anforelsestegn, samt at 
hvts der allerede er gemt en fil under 
det valgte navn. sa overskrives den. 
WRITE fortaeller computeren. at fiien 
er abnet, fordi der skal skrives i den. 

PRINT FILE 1 tortastler compute- 
ren, at det. der skrives. skal skrives 
pa den enhed, hvor »arkiv« er abnet. 

I linje 1520 indskrtves vaerdien af q 
som forste posl, sa computeren 
skraks, nar kartoteket igen skal hen- 
tes ind, ved hvor mange poster der er 
oprettet i kartoteket. indskrivningen 
sker ved at sendre q til en streng med 
lunktionen STRS( ). 



der her indlagt en pause. Pausen 
bestemmer du setv isengden af, da 
den forst afbrydes, nar du rorer en 
tast. 

Selve indskrivningen sker ved 
hjaelp af proceduren udsknv'ind- 
hold(t). Denne procedure bliver kaldt 
fra linje 1300. Taalleren (i) bliverover- 
f0rt til det "formelle parameter- (t) i 
udskriv'indhol(t). hvor (t) ved kaldet 
antager vserdien af (i), og derved 
sorger for at del er den rigtige post, 
der bliver udskrevet. 

Om proceduren afslut, er der ikke 
meget andet at sige, end at den 
tilbyder en forlrydelsesmulighed. 
Det er meget pratisk. hvis man har 
glemt at gemme sit kartotek. 

Data-basen vil blive afsluttet nee- 
ste gang. Der vil de procedurer, der 
haanger sammen med det. der star 
bag // tegnene blive bragt og gen- 
nemgaet, men allerede nu kan du ga i 
gang og bruge den. Du kan oprette, 
tilfo|e, gemme og hente poster. 

Rigtig god tornojelse. a 




PROLOG SPECIALISTEN 
leverer selvfolgeltg ogsa til 
COMMODORE 



PROLOG 

er (remtidens programmerinqs- 
sprog der kan gore din COMMO- 
DORE menneskelig og intelligent. 

COMMODORE 

fortjener det bedste programme- 
ringssprog der kan kobes. 



PROLOG til 
COMMODORE fra 

((PROLOG) (DATA)) 

Myntevej 3. 9380 Vfistbjerg 
tlf. 08 - 29 61 24 
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En af de storste fordele ved PC'er- 
ne og ikke mindst Commodore 
PC10/20, er mullgheden for at 
handtere, lagre og sortere store 
maengder data. 

Til dette formal er der udviklet et 
stort antal database programmer. 
Et af de staerkeste pa markedet er 
dBASE III fra ASHON TATE. Dette 
program bllver importeret af Be- 
rendsen Computer Products A/S, 
og nar dette lasses, skuife pro- 
gramme! findes i en dansk 
version. 



For de Icesere, der ikke er hell inde i 
computer-terminologien kan jeg for- 
taelle, al en database egentlig kun er 
en samling af oplysninger og kan 
sammeniignes rned el almindeligt 
kartotek. 



Indholdet 

Programpakken til dBASE III mde- 
holder 2 kopier af systemdiskette 1 . 1 
kopie af systemdiskette 2. 1 demodt- 
skette sarnt en kombineret bruger- 
manual/laerebog pa ca. 400 stder. 

De to systemdisketter 1 er beskyt- 
tet mod kopiering, men diskette 2 
kan kopteres efter onske. Program- 
met virker ikke for begge disketter er 
indlasst, og pa en maskine sorn f.eks. 
PC10. skal systemdiskette 2 forblive 
i drive A under hele operationen. 



Brugere med hard disk 

ASHON TATE har ogsa sorget for 
brugere med hard disk. Systemdis- 
kette 1 har en sakaldt "install featu- 
re*. Dette betyder, at programme! fra 
bade diskette 1 og 2 kan lueses over 
pa maskinens hard-disk, men hvis 
dette er ske! en gang, er "install 
count* pa diskette 1 reduceret til nul. 
Dette betyder. at disketten ikke kan 
bruges, for programmet er fort tilla- 
ge til dtsketten. 



af Robin Sagar 
Manualen 

Den manual, der felger med dBASE 
III. er delt op i to hoveddele, fern 
korte tillseg, en ordliste og sidst men 
ikke mindst et detaljeret index. 

Pakken mdeholder ogsa en quick 
reference guide, der indeholder kor- 
te (een linje) beskrivelser af alle kom- 
mandoer i dBASE III og en kort be- 
skrivelse til de brugere. der har brugt 
dBASEH om, hvordan de kan konver- 
tere deres datatiler til dBASE III, 

Den forste del af manualen er laare- 
bogsdelen. Den iniroducerer begre- 
bel database. Derefter gar man hur- 
tlgt over til at forklare brugeren, hvor- 
dan man opbygger og bruger en da- 
tabase ved fijselp af dBASE Ill's »on 
line help- feature-; og »assistant« 
funktionerne. Sidstnaavnte er et me- 
nudrevet ovelsesprogram. Det saat- 
tes i funktion ved ganske enkell at 
skhve »assist«, mens man er i 
dBASE. 

Denne komrnando fremkalder den 
forste af menulinjerne i skaarrnens 
everste linje, Hver af de seks mulige 
funktioner, der er pa den forste me- 
nu, giver adgang til en anden menu. 
Den onskede menu eller funktion 
bltver valgt ved at flytte cursoren over 
det onskede ord, hvorefter der tryk- 
kes return. Alle kommandoer eller 
funktioner, der er pa menuen. har 
ogsS en beskrivelse, der automatisk 
vil komme frem, hvis man ikke tryk- 
ker pa" return inden ti sekunder. Be- 
skrivelsen viser, hvad hver funktion 
kan bruges til og syntaksen, der skal 
anvendes, nar man bruger komman- 
doen eller funktionen. 

Anden del af manualen er reference- 
delen. De forste aisnit er en general 
informationsdel, som bl.a. indehol- 
der nogle veesentlige oplysninger og 
dBASE III og systemets kapacitet. 
Derefter fortsaettes med bl.a. en be- 
skrivelse af de ialt 1 23 kommandoer, 
opfort i alfabetisk orden. Endvidere 
beskrives de 37 funktioner, der ogsa 
bruges. 



Felt typerne 

Hver database (kartotek) indeholder 
et antal poster, der igen bestar af et 
antal felter, og jeg skal her give en 
kort beskrivelse af hver felt-type: 

Karakterfelterne kan indeholde 
alle typer af tegn, og kan vaare op til 
256 tegn langt. Beregninger kan ikke 
udferes i dette felt, men kun i et 
numerisk felt. 

Et numerisk felt kan kun mdeholde 
ta! og kan vasre op til 18 tegn langt 
plus et tegn til decimalkomma. Decl- 
malerne kan vsere op til 9 tegn. 

Memo-reltet er enestaende i dBA- 
SE III. Et memo-felt kan indeholde 
alle tegntyper og kan indeholde mdtil 
4000 karakferer. I selve databasen vil 
etmomofelt kun »fylde« 10 tegn, idet 
der automatisk bliver dannel en ny fil 
ved siden af databasen. I denne fil 
bliver memofeltets tegn sa lagret. 

Dato-feltet er igerr et felt, der ikke 
findes i mange andre programmer 
Datoen kan indseettes r mange for- 
skellige formater. som systeme! selv 
er i stand til at sty re. 

Logisk felt kan kun indeholde 1 
tegn, og have to vaardier-sandl eller 
ialsk. Dette felt er nyttigt som indika- 
lion til f.eks. betalt/ikke betalt. 



Sorteringsmuligheder 

I dBASE III kan man soge i og sortere 
et hvilket som heist felt. Derimod kan 
dBASE I II ikke. som andre database- 
programmer, sortere automatisk pa 
et nsgletelt ved input, men giver 
hvert dokument et nummer. og op- 
bevarer dem i nummerorden, indtil 
de bliver sorteret i ny orden. 

Man kan ogsa vaalge et feltnavn 
som indexfelt. Dette betyder, at do- 
kumenterne automatisk vil blive sor- 
teret i indexorden savel som i num- 
merorden i databasen. Hver indeksfil 
er derfor reiaterel til databasefilen og 
bliver tildelt et specielt filnavn (ender 
altid pa .ndx). Der kan vsere lige sa 
mange mdexfiler, som der er felt- 
navne i databasen. Der kan dog kun 
vsere syv abne mdexfiler t hver data- 
base. 

Printerfunktioner 

Der er mulighed for valg mellem to 
printer output, som en del af standard 
programmet. Dette er label-printing 
og reportprinting. Bade labels og re- 
ports skal forst design es I enten label 
eller report editor, Disse to editorer 
kan enten bruges direkte fra dBASE 
IM eller via »asstst- funktionen. 
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Med label-editoren kan man ud- 
skrive forskellige typer af labels. Dis- 
se kan vaere op til 16 linjer pa hver 
hojst 120 tegn. Desuden kan der 
vsere op lil fem labels pa langs al 
arkel, sa dette skulle v&sre nok (or de 
fleste. 

Report -ediaoren er en smule ander- 
ledes. Her kan defineres en rapport 
baseret pS de intormationer, der er i 
databasen. Den eneste begrsens- 
ning er, hvor mange tegn ens printer 
kan skrive pa langs. Hvis dokumentet 
er storre end dette eller hvis du en- 
sker al vise rapporten pa skaarmen, 
vil de tegn eller fetter, der er -for 
mange*, blive "scrolled- til den nee- 
ste linje. Rapport-editor har mulighed 
for automatisk overskrift pa op til fem 
linjer og der kan genereres totater og 
subtotaler pa de fleste felttyper. 

Feltnavnene kan anvendes til at 
give rapportens forskellige kolonner 
oversknfter. men feltnavnene kan 
kun vasre op ti! 8 tegn. 

Nar man forst har udvalgt sig de 
relevante feller, kan der skrives op til 
fire linjer tekst som overskrift, og hvis 
denne overskrift skulle vise sig at 
vsere bredere end indholdet af feltel, 
vil kolonnen automatisk udvide sig. 



sa der er plads nok lil hele overskrif- 
ten. Der er saledes tale om en meget 
avanceret rapportgenerator, som har 
alle nodvendige egenskaber til at 
producere nyttige og lassevasrdige 
rapporter. Derf.eks. ogsa automatisk 
indssttes sidenummerering og dato. 

Andre faciliteter 

Programme! er mere end blot et kar- 
loteksprogram. Det indeholder sit 
eget programmerings-sprog. der gor 
det muhgt at designe et menudrevet 
system, der kan bruges til mange ting 
leks. inventarsystemer. kunde-. 
ordre- eller regnskabssystemer. 

Alle programmerne kan skrives i 
den indbyggede dBASE III tekst edi- 
tor, eller i en anden tekstprocessor. 
Programmeringskomrnandoerne er 
ikke meget forskellige fra, hvad der 
normalt bliver brugt i dBASE III, og 
pakkens programmeringsdel Inde- 
holder et fuldstsendigt seet at ->do/ 
while og »if/then/else« funktioner 
savel som »do case/case/end 
case«. 

Programmeringssproget er struk- 
tureret og brugervenligt. men der 
krasves lidt erfaring for man gar orn- 
bord i mere indviklede programmer, 



For at designe input og output skser- 
me, er der i dBASE II) en steerm 
editor SED. Denne er menudrevet 
ligesom assistam programme!, og 
ved at placers tekst og field navnet pa 
skasrmen, hvor man onsker det skal 
veere. kan man oprette en kundede- 
signet skserm. Disse, label-creation 
og rapport-creation kan alle indkor- 
poreres i programmerne. 

Konklusion 

EUer min mening er dBASE HI nok 
det bedste database-system pa det 
danske marked i ojeblikket. Som et 
enkeit negativl punkt vil jeg dog anfo- 
re, at den version, jeg arbejder med, 
kun har en engelsk brugervejied- 
ning. Hvis Berendsen Computer 
Products kan overssette denne vej- 
ledning lige sa godt som manuaien til 
FRAMEWORK, sa vil selv dette kritfk- 
punkt forstumme. □ 



TII'S-rUOGKAM til Commodore 64 

Mefl dette program Kan A) ippo iM enkejtiaskksr dt* nai 
fyai id, biol ved en gang at indtasla ugens 2G ap llendo hold 
Programme! holder &tyr pi aUa lodootdrwldene, aptumme- 
ic automaiiok vundne, uatgiorte kampe. mil, place- 

ring og point. 

Alle disss, data brnger progrjn\mei M al udfefjne iwocent- 
chareo'ne lor 1 , x og 2 for hver enkelt damp, hvoreller del 
lavor en ovarsglsr»Ww oiler iipsifflkkerne pa skajrmon 1 
Ud&k'itt at procentcnanccme pa aHEermen filler printer. 
Tipsraakkarne kan du vaelge a! udsk-tvo pi ckBrmen, papir 
eller daia-ltoskuponer. Om sondagen kan du soga eltct an- 
tal r*gtigo tegn 

Alle data gemmcr du pi diskette eller band, Og opSufflrttelfl' 
dem eller hver EpiL'edag, l .'. ved al indtasle de akiuefla 
ipilleresuRBlar, og du er nu aid up lo date ved tipninrjen' 
Du Kan altuJ rene i alle navne og andie data, saml direkle 
indu&le ollor «i|l-nfjsiiSten 1 avisen. 
Programme! leveros pa diskette elkir bind. 

Pris. kr 340 , - 



BMMBnOfcMaMrt Q Diskette Q Band 

LD-Du(ascrvice 

Junuarvej 7, 8210 Arhus V. 

D Check vedlagt 

□ KdWtait Di B if O 92T4B51 

□ Betat«s ved mooiagei«n 

Vad £ocudbotollfi9 -15%-Kr 289 " 
Opdaleting al lidllgere levered* programmer, Kr 50,00 

Kaim ~. — - — 

MrosflB —4—.. wi)«iiHtM<i<Hiii'wm<nMiH» 

Poatnr. By 



PROFESSIONEL TEKSTBEHANDLING 



CBM 64 WRITER PROFESSIONAL 

version 4.0 
af AXEL BANG 

TIL COMMODORE 64, SX 64 og C 128 

Programmci tndeholdcr bl.a.: 

- 28.300 tegn I 

- Dansk fcarakicrMct I 

- Unieoncnleret 

- Automatisk llnieskifi 

- Avanccrct rcdigcrins I 

- Fuld labulaior ■ 

- Alfasonering 

- For-/bagJicns scroll 

- Automatisk scgycrMai otd j 

- Format just cring . 

- Sammenkobling af Here dokuntemet I 

- Fuld *ikkcfhcd mod tab af lekn ■ 

- Fotbcrcdt ill foiouiu ■ 

- Udskrivnlng pa lypehjuiiskriver | 

- Og mega mere .... 

Med programinei folger en udforlig lei forsidelig dansk brugctvejledning. I 

Programmci er udvilclei af journalist Axel Bang. . 

Dansk bruBerscrvicc (hotline). | 

Pris, EPROM version kr. 675,00 incl. moms . 

Pris. DISKETTE version kr. 575,00 incl. moms I 

Forscndelsesomkostningcr kr. 20,00. 

ENEFORHANDLING 

Danmark, Sverige, Norge og Finland 

software 4 DANSK DATA SERVICE ApS 



Sundtoldvej 8d 3O00 Helsingor Tlf. 02 - 1032 OO 
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I denne maned bringer vl tre \as- 
serprogrammer fra vores »bun- 
ke« af laeserprogrammer. Selv om 
vi har mange Iseserprogrammer 
liggende, er vi forts at interesseret 
i at modtage gode programmer fra 
laeserne. Vi prsemierer med op til 
10 disketter eller 20 band efter 
enske. Meget korte programmer 
eller rutiner premieres lidt lavere. 
Send dit program ind, og lad os 
kikke pa det. 



SUMMON 

Dette program er indsendt af 

Anders Piiegfrd 
Eskaarhojvej 97 
6100 Haderslev 

SID-MON er et program, der er 
beregne! til at styre lydchip'en i com- 
puteren. Prograrnmet omfatter alle 
SID's lunktioner. ind. ringmodula- 
tion. synkronlsation, filter, resonans 
samt en pit. som viser indholdet af et 
register - voice 3 output/envelope. 

Sksrrnen indeholder en fuldstaan- 
dig oversigt over SID-MON"s funk- 
tloner og parametre, som kaldes 
frem ved Iryk pa en eller to taster - 
anden last er da et tal mellem (1 -3). 
F.eks. kaldes volumen fram ved tryk 
pa. «V« og attack stemme 2 ved 
•<A2« Parametrene styres derefter 
pa 4 mader: 



1) Frekvens, pulsbredde og filter 
F1 : +1 
F2 : -1 
F3 : +10 
F4 : -10 
F5 . +100 
F6 : -100 
F7 . +1000 
F8 : -1000 

* : fordobling (oktav op) 




2) Alle andre tal: volumen, resonans, 
ADSR 

+ : +1 

3) Alle ON /OFF undtagen waveform 
+ :ON 

- : OFF 

4) Waveform 

Cursortasterne flytte Wavecursor 
+ : slar waveform til 

— : slar waweform fra 

Derudover skulle programme! give 
sig selv. 



DATA BUDGET 

Det er status- og budgettid for man- 
ge, og vi er derfor glade for at kunne 
prassentere prograrnmet DATA 
BUDGET, der er indsendt af 

Morten Stausgaard 
Lonborg Alle 8 
2500 Valby 



Prograrnmet har "indbyggeU de 
mest almindelige poster for en fami- 
lie. Der folger ikke nogen egentlig 
forklaring med, da prograrnmet fak- 
t'sk er selvforklarende. Har man brug 
for at kende sine poster noget andet, 
kan man let rette i selve prograrnmet. 
Tak for et godt program. 



YATZY SPIL 

Heller ikke dette program har nogen 
forklaring, og det skyldes, at den er 
indbytte i selve programme!. Der be- 
der du simpefthen om instruklioner, 
hvis du har brug for det. 
Dette flotte program er indsendt af 

Lars Jergertsen 
Witlernoesvej 8 
3100 Hornb&k 



I - halvering (oktav ned) 





Har du ikke tid eller lyst til selv at 
indtaste dit program, har du mu- 
lighed for at kobe en diskette eller 
et band med alle de programmer, 
der er llstet ud I bladet. 



Hvordan bestiller man 

Vore priser skulle heist vaere sa tave 
som muligt, og de er derfor baseret 
paforudbetaling. Dette giver mindst 
mulig administration og den hurtig- 
ste ekspedition. 



fortsasttes side 45 
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Fra og nr. 1/2 1986 har vi prlntet 
programmerne ud pa en anden 
made end tidlfgere. Dette skyldes, 
at vl I samarbejde med RUN i Vest- 
tysktand har feet lavet et forbedret 
kontrolsumsprogram, der skulle 
give en fejlfri indtastning. 



2) nardu har indtastet en prograrnlin- 
je og trykker pa return, tar du overst 
pa" skaarmen den kontrolsum, der 
gerne skulle passe med den, der star 
i bladet 



3) alt hvad der star i de kantede 
parenteser er styrekoder og skal ind- 
Kontrolsumsprogrammet pa nas- tastes I* henhold til nedenstaende 
ste side er et maskinkodeprogram, skema. 
der »k0rer« ualhasngigt af det Basic- 
program, du er i fa?rd med at taste 4) CBM I programlistntngerne bety- 
ind. Du skal imidtertid vaare opmasrk- der Commodore-tasten, 
som pa folgende: 

1 ) tallet til hojre i overste programlinje 5) srna bogstaver betyder SHIFT og 
er kontrolsurnmen, og den skal ikke det pageeldende bogstav. 
tastes ind. 

Narduser irykkerdu 



6) tre tegn »afviger« 
\-£ 
"= t 



7) nar du har indlsesl kontrolsum- 
sprogrammet og »kort« det, skal du 
taste NEW, tor du indtaster dit Basic- 
program. 

8) hvis du saver og loader dit kontrol- 
sumsprogram sorn et maskinkode 
program, loades det med ,8,1 eller 
,1,1 og startes med SYS 49152. 



ICLRl 

I HOME ] 
[IIP] 
[DOWN | 
I LEFT] 
[RIGHT 
(RVSl 
[OFF | 
I BLK | 
I WHT I 
[REDl 
[ CYN ) 
I PUR] 
[ GRN | 
I BLUl 
[YEL] 



CLR/MOMt 



CRSR < 



CflSR * 



m 
cn 



Skffirm 

C 
E 

n 

H 
II 

a 

□ 



m 

k. 
i 

□ 
□ 



I CBM 
I CBM 
I CBM 
I CBM 
I CBM 
I CBM 
I CBM 
I CBM 

tfl] 
[F2l 
[F3l 
[F4] 
I F5 I 
I Kb I 
LF7I 
LF81 



II [O] 

? ] CD 

si cm 
>> i m 

8] [o] 



CD 

m 
□3 



UD 
UD 



□ 

K 

S 
H 
E 
■I 

□ 



IB 
II 
9 
II 




KONTROLSUMSPROGRAM COMMODORE 64 
DI SKKTTEVERS ION ■ Tizol OiMGf (j& 



10 

20 
30 
40 

50 
60 
70 
80 
90 
100 

1 10 

200 

210 

220 

230 
300 



999 
looo 



1001 
1002 



1003 
1 004 



1005 
1006 



RESTORE :FOR A=49152 TO 
49629; POKE A,234:NEXT ;PRINT 
"(CLRlVENT LIDT. DATA 

INDLAESES! ! I" 
F=0:READ A: Y=PEEK (63)+PEEK 
(64)*256;IF A=0 THEN 200 
READ B,C:F0R D=A TO B : READ 
AS; IF LEN (AS) -2 THEN 90 
E-ASC (A$)-48-<7 AND AS>"@" 
):IF A$<"0" OR A$>"G" OR AS> 
":*' AND A$<"A" THEN 90 
A$=MID$ (A$,2):E=E*16+ASC 
(A$)-48-(7 AND A$-'"(§") 
IE AS' "0" OR AS>"F M OR A$> 
"9" AMD A$<"A" THEN 90 
F=F+E : POKE D,E:NEXT ;IF F=C 
THEN 20 

PRINT "CHECKSUMSFEJL: SKAL" 
C", VAERE"F:GOTO LOO 
PRINT ' ' I NDTASTNI NGSFE J I. ; " 
AS:Y=0 

Z=PEEK (63)tPEEK (64)*256: 
A$=STK$ (Y)+STRS C-Z):LF Y= 
0 THEN A$«STR$ (Z) 
PRINT , iD0WNlLi'\s M [2UP] M ;: 
POKE 198.1 :POKE 63],13:END 
PRINT "I DOWN 1 SLUT i 1 !":PRLNT 
"[DUWNlSKAL 
MASKINKODEPROGRAMMET 
INPUT "GEMMESl 2SPACES] J 
[ 3LEFTl":A$: IF A$<>"J" THEN 
300 

SYS 57812"tf:49l52 KORREKTOR" 
,8:P0KE I93,0:POKE 194,192: 
POKE 174,222 
POKE 175.193:SYS 62957: 

VERIFY "49152 KORREKTOR" ,8,1 
AS="": INPUT "I DOWN 1 START 

KONTROLSUMS PROG RAM? J 
l3LEFTl";AS:TF AS="J" THEN 
SYS 49152 



DATA 49187, 
A2,C0,8D,02 
AO, I F,B9,E2 
DATA C 1,99, 
DATA 49323, 
EA,78,A9,2E 
8E, 15,03,58 
DATA A9.0O, 
A5,8C,El ,Cl 
E0,C1,F0,I3 
DATA U),B9, 
A9,A0.99,E1 
EO, CI, 20, 73 
DATA AA.FO, 
DATA 49667, 



49208,2 342,A9,AE, 
, 03, 8E, 03,03,00, 

00,04.88, 10. F7 
49387, 9136.4C,31, 
,A2, CO, 8D, 14,03, 

8D, El, CI. 20, 60, 
" ,7A,84,7B,AC, 

eTTcI ,99,F1,C1, 
,Ci.88,D0,F2,8C, 
,00 

D3.88,84.3A,90,55 
49629, 19950, AC, 



4815 

3548 
2619 
4864 

3378 
2849 
2118 
3013 
2700 
4388 

3342 
4263 

3478 

5764 

4675 
6582 

6007 



1991 
6332 



6106 
5541 



2231 
6096 



1007 
1008 
1009 
1010 
101 1 
1012 
1013 

1999 

2000 

2001 



2999 
3000 



3001 



4998 
4999 
5000 



96,A4,4C,08,AF,20,6B,A9,20, 
79,A5.84.OB.A0 
DATA 00. §4, 08, 84, 45, 84, 46, 
84,09,C8,BE,FF,0l,F0,38,A$, 
08,30,OC,EO,20 
DATA FO ! F2 ; EO.3A,FO.0C,EO, 
>,E0, 22, DO, 02, 49, 80, 



00, 
90, 

°A 
EO, 



8F,F0,2. , 
09,01, 85, 08, 8A 
DATA A6,09,FO,06,OA,69,0 
CA,D0,EA, 18,65,45,8^,45, 
02,E6,46,E6.09 
DATA A5,09,29.()7,85,09,l 
C2, 46, 08 ,90, 21 . AO, FF, 8C, 
CI, A2, 14,20, 89 
DATA Cl,C8,A9,BD.99,E2.Cl. 

A9,BE,C8 f 99,E2,cI,c8,Ai f 4$ f 
20,B9.C1,A9,BB 

DATA 99,E2.C1,4C,A4,A4,84. 

08,B5,o6,85,63,B$,01,85,6$ f 

A2, 90, 38, 20,49 

DATA BC,2D,DF,BD,A4,08,AA. 

C8,BD,OO,Ol,F0,O8,O9,80,99, 

E2.C1,E8,D0,F2,60 



DATA 49152, 
03, C9, CO, DO 
DF.Cl ,4C,27 
DATA C0.8D, 
8D,DE,Cl,A9 
CL,CA,10,FA 
REM E1NGABE 
DATA 49285, 
CI, DO, 21, 8D 
A5,DA,30.OE 
DATA 09.80, 
20,99,28,04 
DO,05.A9,l I 



49186,5131 ,AD,03, 
,09,AD,DE,C1,AE, 

DF, CI, AD, 02, 03, 
,A0,A2, LF.9D.E2. 

SICHERUNG 
49322, 4626, AD, El, 
,20, DO, 80, 21, DO, 

85, DA. AO, 27. A9, 
,88, L0,FA,A6,D6, 
,20,35,EB 



DATA ,49293 ,49295 . 702 ,EA,EA, 
EA, 



5766 
5954 
6365 
6099 
5428 
6286 
5164 

6223 
5136 

5845 
5995 

2948 



I kasssetteversionen skal 
folgende linjer andres til: 



200 PRINT "| DOWNlFERTIC": PRINT 

" 1 DOWN | SKAL 
MASKINKODEPROGRAMMET GEMMES 
210 INPUT "PAA KASSETTEN 

I 2SPACES]J|3LEFT]":A$:IF A$< 

>"J" THEN 30O 
220 SYS 57812"49152 KORREKTOR", 

L,l:POKE 193,0:POKE 194,192: 

POKE 174,222 
230 POKE 175,193:SYS 62957:PRINT 

"SPOT VENL1GST BAANDET 
TILBAGE OG 
240 INPUT "TRYK RETURN" :AS ! 

VERIFY "49152 KORREKTOR" . I 



4926 



3666 



5738 



505O 



3654 



Til Commodore 64/128 



YATZY-SPI L 

Indsendt af: 

Lars Jergensen 
Willemoseve j 8 



0 DIM N$U6),QQ(16) f L8$(16) f 
L8(16),V8(I6> 

2 POKE 53280, 14:P0KE 53281,6: 
PRINT "[CBM 71" 

3 PRINT "|CLR,DOWN,5SPACESl 
**** NEW YATZY BASIC V3.6 

4 PRINT "I D0WN.3SPACES]G.16 

SYSTEM "3891 L-FRE (0) M BASIC 
BYTES USED" 

5 PRINT "[DOWN] READY." 
22 POKE 204.0 



3539 
2465 
3250 

4571 



862 
8D4 



25 PRINT M [CLR,UP,2SPACES,RVS, 

BLU, SHI FT \,33SPACES,CBM *]" 
30 PRINT "|2SPACES,RVS,BUI| 

|YEL,7SPACES]N E W[4SPACES] 
Y A T Z Y[ 8SPACES,BLU I 
35 PRINT "[2S PACES, CBM *, RVS , 2007 

3 3 SPACE S , OFF, SHIFT \]" 
37 PRINT M [DOWN ] " 306 
40 PRINT "|2SPACES,GRN,RVS, 2567 
SHIFT \,12SPACES (COPYRIGHT 
I 1 2SPACES . CBM *) 
45 PRINT "[25PACES,RVS, 1966 

14SPACESI1985 BY ( 14SPACES 1 " 
50 PRINT "[2SPACES.CBM *,RVS, 3134 
9SPACES 1LARS JORGENSEN 
I 10SPACES.OFF.SHIFT \ | " 
55 PRINT "[D&WNl " 306 
70 PRINT "[CYN,2SPACES,RVS, 2385 
SHIFT \ , 5SPACES1 IDEA BY 
[21SPACES,CBM *]•" 
80 PRINT M [2SPACES,RVS,CBM 3, 1737 
35SPACES] " 

90 PRINT " [ 2SPACES , RVS ■ 3S PACES . 2929 
CBM Dl THOMAS M. ANDERSEN 

1 12SPACES] " 

91 PRINT M [2SPACES,RVS,3SPACES, 2662 
CBM Dj JAKOB M. ANDERSEN 

[ 13SPACES] 

92 PRINT " [2SPACES,RVS,3SPACES, 2278 
CBM D] LARS C. JORGENSEN 

[ 13SPACES1 " 

93 PRINT "[25PACES,RVS,3SPACES. 2527' 
CBM D] JANE K. JORGENSEN 

[ 13SPACES) 

94 PRINT " 1 2S PACES * CYN . CBM *, 2383 
RVS, 33SPACES, OFF, SHIFT \P 

95 PRINT " [DOWN] " 306 

96 PRINT M [PUR,2SPAC£S,RVS, 1837 
SHIFT \, 33 SPACES, CBM *!" 

97 PRINT "|2SPACES,RVS.6SPACESl 3047 
PRESS ANY KEY TO ST ART 

[ 7SPACES] " 

98 PRINT "|2SPACES,CBM * , RVS , 2552 
33SPACES, OFF, SHIFT \P:POKE 

204, 1 

99 GET KS: IF KS="" THEN 99 1659 

101 GOSUB 30000 573 

102 INPUT " | 9R1GHT,RVS I ANTAL *>524 

SPILLERE C2-15)";PL:1F PL< 

2 OR PL > 1 5 THEN PRINT "[2UP] 
":GOTO 102 

103 PRINT "(DOWN] 11 : FOR A=J TO 3942 
PL:PRINT A:: INPUT "NAVN": 
N$(A):PRINT M | UP 1": NEXT : 

GOSUB 8000 

104 INPUT "I 3DOWN.RVS.BLUl 2767 
INSTRUKTIONER [ WHT] " : INS 

105 IF INS="J" OR INS= I, JA" THEN 2516 
GOSUB I400:GOTO 108 

108 L 1=1 513 

109 REM PLAYER STARTS 

110 GOSUB 5000 571 
120 PRINT "ICLRl" 316 
125 FOR A=l TO 6:BS( A)="[CRN] 1570 

NEXT A,, | 

130 AS C 1 ) = I RVS , 3S PACES , DOWN , 3d57 

3LEFT] q [ DOWN, 3LEFT, 

3SPACES j":T( I )=1 
140 ASC2)= ,, [RVS,2SPACESlq[DOWM, 3472 

3 LE FT , 3 SPACES , DOWN , 3 LEFT ] q 
[ 2 SPACES 1 " :T( 2 )=2 , , 

150 AS(3)="(RVS,2SPACES|tiiD0WN, 3690 

3 LEFT 1 q I DOWN. 3LEFT[q 

[2SPACES] M :T(3)=3 
160 AS(4)="lRVS|q ql DOWN. 3 LEFT, 3908 

3SPACES,DOWN,3LEFT|q q": 

170 AS(5)= ,, |RVS|q g|D0WN,3LEFT| 4126 
q 1 DOWN.3LEFT]q q":T(:>)=5 



(1 )*&)+! 

191 IF BS(A)= ,, [RED] n THEN T(A) = 
OiNEXT ;GOTO 200 

192 X5(A)=AS(X) :T(A)=X 

193 NEXT A 

200 POKE 646,ZJ:PR1NT M |CLR]" 
NS(LI );FOR A=l TO 6: PRINT 
X$ (A)" RIGHT, 2UP 1 "; : NEXT 
210 FOR A=l TO 6 ; PRINT BS(A) H 

[ HOME . 5 DOWN] " TAB( 4*<A- 1 ) ) " 
IRVSl^A'MLEFT) ":NEXT : I$= 
M 1":PO=0:GOTO 300 



HOME , i 2DOWN, CYN] 
RVS, GRN, SHIFT \, 

CYN, RVS, 34SPACES, 



21 1 PRINT 

212 PRINT 
34SPACES 

213 PRINT 
GRN] " 

214 PRINT " |CYN,RVS,7SPACES] 
TAST| 23SPACES,GRN| " 

222 PRINT " [CYN,RVS.3SPACES]l-6 
[SSPACES]H0LD/'IKKE HOLD 
[6SPACES.GRN] " 

223 PRINT " CYN,KVS,3SPACESlFl 

|9SPACES]KAST[ 16SPACES, GRN] 
ii 

224 PRINT " I CYN , RVS , 3SPACES ]F3 
|9SPACES]ST0P[ 16SPACES, GRNl 

226 PRINT " ICYN f RVS,345PACES, 

GRN, OFF, SHIFT \J" 
230 GET KS:IF KS="" THEN 230 
235 PRINT "( H0ME,9D0WN,39SPACES 



1905 
260 
3862 



5990 



1303. 
1849 



2075 



2318 



236 PRINT 

237 PRINT 

238 PRINT 



39SPACES 
39S P AC E S " 
39SPACES " 
240 Z=VAL (KS);IF Z>6 QR Z<1 
THEN 260 



RED | 

0 

GRN I 



AND 



THEN 



250 M=1:IF BS(Z)=" 
T(Z)>0 THEN 15 
255 M=I.:IF BS<Z>=" 

PRINT "[ RED, HOME, 5 DOWN) " 
TAB(4*(2- 1 ) )" I RVS]"Z" I LEFT) 

":BS(Z)="| REO| M : GOSUB 1000: 
GOTO 300 

260 IF KS=CHR$ (133) AND H-l 

THEN GOSUB 1300;FS=FS+PO:M< C 
0:GOSUB IOOO:GOTO 190 

2(j5 IF KS^CHRS (134) THEN GOSUB 
1 I 00: GOTO f>00 

270 GOTO 230 

300 REM UNDER SOG KAST -LCJ. 
305 PRINT "[H0ME,3D0WN) M 

310 FOR A=l TO 6 

311 IF IS="L" AND BS(A)="|RED] H 
THEN NEXT : GOTO 380 

312 IF lS<>"r AND B$( A) B " [ GRN ] 
THEN NEXT :GOTO 380 

320 IF T(A)=1 THEN YJ=Y1+I 
330 IF T(A)=2 THEN Y2=Y2+I 
340 IF T(A)=3 THEN Y3=Y3+1 
350 IK TUJ=4 THEN Y4=Y4+1 
360 IF T(A)=5 THEN Y5=Y5+1 
370 IF T(A)=6 THEN Y6=Y6+l 
375 NEXT 

380 IF Yi>2 AND Yl<6 THEN PO=PO+ 
1000:PRINT " 3 ENERE":L5=3 

390 IF Yl=6 THEN PO=2000 : PRINT " 
6 ENERE": L5=6 

40O IF NOT Yl=3 AND NOT Yl=6 

THEN PO«FO+U00*CYl-L5)):IF 
Yl-L5>0 THEN PRINT (Yl- 
L5 )"ENERE" 

410 IF Y2>2 AND Y2<6 THEN PO=PO+ 
200;PRINT " 3 TOERE" 

420 IF Y2=6 THEN PO=PO+2000: 



^2046 

1513 

2234 

1500 
1500 
1500 
2474 

2944 

. 6460 



5037 



824 
870 
2318 

2310 

1767 
1349 
1931 
1758 
1840 
1922 
1 30 
4569 

3609 

6348 



430 
440 
450 
460 
470 
480 
490 



500 
510 
520 

530 

560 

570 

575 



580 
f>U0 



601 

602 

609 

610 
61 1 
612 
613 

614 

615 

620 

696 

697 
699 
700 
710 
1000 

11O0 

I 105 
1110 

1115 

i [20 

1200 

1205 
1210 



" M |CLKV.JD0WN.6SPAGES| 
S COREL'S :QQU I ) = 



PRINT " 6 TOE RE" 

IF Y3>2 AND YK6 THEN PO=PO+ 

300:PRINT " 3' TREERE" 

IF Y3=6 THEN PO=P0+20OO: 

PRINT " 6 TREERE" 

IK Y4>2 AND Y4<6 THEN PO=PO+ 

400:PRtNT " 3 FIRERE" 

IK Y4=6 THEN PO=PO+2000: 

PRINT " 6 FIRERE" 

IT Y5>2 AND Y5<6 THEN PO=PO+ 

500: PRINT " 3 FEMMERE" :L6=3 

IK Y5=6 THEN PO=PO+2000: 

PRINT " 6 FEMMERE" : L6=6 

IF Y5^3 OR Y5<3 AND Y5<6 

THEN PO=PO+(50*(Y5-L6) ):IF 

Y5-L6>0 THEN PRINT Y5- 

L6"FEMMERE" 

IF Y6>2 AND YbCb THEN PO=PO+ 
600: PRINT " 3 SEKSERE" 
IF Y6=b THEN PO=PO+2000: 
PRINT " 6 SEKSERE" 
IF Y J = 1 AND Y2 = l AND Y3=l 
AND Y4=l AND Y5= I AND Y6=l 
THEN PO=l 500: PRINT 
"STRAIGHT" 

IF PO=0 THEN IF I$="I" THEN 
FS=0:GOTO 1200 
IF HS="F.ND" THEN 600 
PRINT " | GRN , HOME , 7 DOWN , 
3 RIGHT I P01 NT: (GUN, RVS I "PO" 
I LEFT,2SPACESr 
PRINT "lGRN,H0ME,7DOWN, 
I 8RI GHT ] POINT : I RED, RVS 1 "FS" 
I LEFT, 2 SPACES I " 
GOTO 21 1 
PRINT 
FINAL 

QQ(LL ) + FS:GOSl'B IOOO:FS=0 
FOR A=l TO PL:L8S(A)=STRS 
(QQ(A)):NEXT 

FOR A=l TO PL:L8(A)=5-( LEN 
(L8S(A) )>:NEXT 
PRINT "I CBM 71 
CCCCCCCCCCCCC cccccccccccccc 
FOR A=l TO PL 
IF A=L1 THEN VZ$="|CBM 7]" 
IF h<>U THEN V&$=" I CRM &1" 
PRINT V2$:N$(A> TAB(22+ 
L8(A>)QQ(A) 

IF QQ(A)MOOOl) AND V8(A)=0 
THEN VNS=" HAR VUNDET" : L7=A 
NEXT A 

IF «*$<>"" AND V8(L7)=0 THEN 
PRINT ,r | 200WN.CBM 5, RVS]" 
N$(L7)VN$: V7=V7+1 :G0SLIB 7000 
PRINT H [2D0WM,PUU|PRESS ANY 
KEY" 

GET K$:IF K$="" THEN 697 
LL=LI+1 : IF V8tLl )=l THEN 699 
TF Ll>PL THEN LI =U: GOTO 699 
GOTO 109 

1*0=0 : ZX=0 : Y I =0 : Y2=0 : Y3=0 : Y3= 
0: Y4=0: Y5=0 : Y6=0 tHS^" 1 : IS-"" 

:N=0:L5=0:L6=0:RETURN 

FOR A=l TO 6: IF B$(A)="lKED| 

" THEN N=N+1:NEXT :GOTO 1110 

NEXT A 

IF N<4 THEN PRINT "[UPlDU 
SKAL HAVE MINDRE END 3 
T!1.BAGE! M :L8=1 :GOTO 230 

IF N=6 THEN PRINT "U'PiDU 
SKAL SLAA IGEN ! " : L8=l :GOT0 

230 

FS=FS+PO: RETURN 
PRINT 11 1 WHT, RVS. SHI FT \, 
1 9SPACES ] 11 

PRINT " PUR, RVS, 19SPACES. 
WHTJ " 

PRINT M | PUR . RVS | INGEN 



4170 
2528 
3874 
2792 
4786 
3526 
7167 

3903 
3056 
5685 

2792 

1620 
3245 

4983 



570 
4763 



2080 

3012 

3597 

701 
1565 
1760 
2154 

4033 

260 
5008 

2160 

1863 
2372 
2176 
628 
754<^ 

3126 

260 
5364 

4071 

you 

1109' 

1353 

2367 



1220 

1230 

1240 

1250 
1260 
1300 



[310 
L315 

L320 
1330 
L340 

1400 

1401 
1405 
1406 



1410 



1420 
1490 
1500 
L510 



5000 
5005 
5010 



5020 
5030 



5040 
5050 
5060 
5070 
7000 



7010 



7021.) 

8000 
SOUl 



8002 

8003 

8004 
3010 
8020 



POINTS ... I 3SPACES , WHT ] " 
PRINT " IPUR,RVS.19SPACES. 
WHTl " 

PRINT " | PUR, RVS | "TRYK EN 

TAST* I 4S PAGES, WHTl " 
PRINT " (PUR, RVS J9SPACES, 
WHT, OFF, SHIFT \I r ' 
GET KS:IF KS= mi THEN 1250 
GOTO 600 

FOR A=l TO 6: IF BS(A)="[ RED] 
" THEN ZX=ZX+ I : NEXT :GOT0 
1320 
NEXT 

IF FS+POFS f'HEN PRINT "[UP] 
FORKERT H0LD!":GOT0 230 
IF ZX=6 THEN 1340 
RETURN 

FOR A=l TO 6:BS(A)="|GKN] M : 
NEXT A: RETURN 
PRINT "[CLR r 0FF,CYN, 
10SPACESI INSTRUKT IONER : " 
READ INS 

IF IN$="@" THEN 1490 
IF INS-""'* THEN PRINT " I YEL, 
RVS I PRESS ANY KEY 1 OFF]": 
GOSUB 1490 

FOR A=l TO LEN (INS):PRINT 
MIDS (INS. A, I );:FOR B=l TO 
20: NEXT B, A: PRINT 
GOTO 1401 

GET KStlF KS= ,,M THEN 1490 
RETURN 

PRINT " [ GRN , HOME ^ 5 DOWN I " 
TAB14*(Z-I RVSl"Z"[LEFT] 

":BS(Z)="lGRNl ,, :GOSUB 1000: 
GOTO 300 
PRINT " CLR] " 
PRINT " H0ME,10DOWN|" 
PRINT " 14SPACES,RVS,R£D, 
SHIFT \ ";:FOK A=l TO LEN 
<N$(L1 )):PRINT "IRVS) ":: 
NEXT : PRINT "[RVS,CBM *]'• 
PRINT "I 14SPACES,RVS] " I : 
POKE 646,D:PRINT NSCL1)* 
[REDl " 

PRINT "| 16SPACES,GBM 

FOR A=l TO LEN <N$(LI )) : 

PRINT "[RVS I "::NEXT :PRINT 

"I OFF. SHIFT \|" 

GET KS:IF KS*"" THEN 5060 

RETURN 

D=D+I MP D=I5 THEN D=l 
GOTO 5005 

IK V7<PL THEN POKE 19,64: 
INPUT "I 2DOWN,2SPACES,RVS. 
CBM 6|VIL I ANDRE FORTSAETTE 

[ OFF , CBM 2|":KS 
IF K$«"J" OR K$= M JA" THEN 
VH(L7)=t :VN$="":L7=0:KS=" M : 
RETURN 

PRINT "L2D0WN,C'BM 7 I SLUT": 

GOSUB 20000 

POKE 666, 1 zZJ-l 

DIM ES(L6):EStl)="HVID M : 

E$(2>="R0D":E$(3)="TURKIS": 

ES 6)="VI0LET" 

ES(5)-"GR0N":ES(6)= M BLAA": 

ES(7)= M G0L M :E$(8)="ORANGE n : 

ES(9>="BRUN" 

ES( 10)=''LYSERUD": ESC 1 1 )= 

"CRAA 1 ,, :ES(12)= ,, GRAA 2": 

E$(13)="LYSEGK0N" 

ES( 14)= M LYSEBLAA":-E$(15) = 

"GRAA 3" 

PRINT "ICLRlilVILKEN FARVE 
SKAL TERNLNGERNE HAVE?" 

PRINT "BESTEM "FARVE MED 
[RVS.GRNl ♦ [WHT, OFF | ELLER 
[RVS, GRN] - [WHTl" 



1353 

2063 

1373 

1661 
566 
3387 



130 
3281 

1285 
142 
2011 

2606 

371 
1 196 

3369 



3616 



591 
1566 

142 
4786 



316 
1028 
6100 



3081 
4283 



1693 
142 

1400 
647 
4810 



4691 



1506 

1434 
5547 



5955 

4979 

2790 
3664 
3552 



PRINT 11 TRY K [ RVS, CRN I RETURN 
[WHiTjOFFj NAAR DU ER 
TILFREDS!" 
PRINT "[HOME. 10DOWN,S RIGHT. 
RVS , 3S PACES , DOWN, 'ALE FT, RVS] 
q [DOWN, 3LEFT, RVS, 3SPACES]" 
8035 PRINT "[ 2.UP, I6RICHT,WHTl " 3355 

ES(ZJ)"[6SPACESr' 10300 
8040 GET K$:IF K$="" THEN 8040 1653 

8050 IF K$="-" THEN ZJ=ZJ-1:LF 3619 

ZJ< I THEN ZJ=15- 10310 
8060 IF K$="+" THEN ZJ=ZJ*1:TF 3403 

ZJ > 15 THEN ZJ=1 10320 
8065 IF KS=CHRS (13) THEN RETURN 1118 
8070 POKE 646,ZJ:G0T0 8030 1635 10330 

10000 DATA "[RVS, CBM 7]SVENSK 6432 

YATZY:","[YEL|DET GAELDER 10340 
OM AT SAMLE PAA ENERE ELLER 
FEMMERE ! 11 

10010 DATA "I CRN) 1 ENER 100" 1932 19220 

10020 DATA " 1 FEMMER 50" 2184 

10030 DATA "*3 ENERE 1000" 2319 20000 

10040 DATA "*3 4606 20010 

ENS 100*0 JNENE (3 20020 

FIRERE=400) M 20030 
10050 DATA "*6 ENS ...... 2000" 2332 

10060 DATA "^STRAIGHT. . . 1500 (I 2 3186 20040 

3 4 5 6) 

10063 DATA I DOWN, 2SPACES , RVS, 1766 20050 

CBM 61* = I SAMME KAST" 20060 
10070 DATA "|DOWN,CBM 8jDU KAN 2489 20070 

STOPPE NAAR DU HAR 2" 
10080 DATA "TERNINGER T I LB AGE 2730 20080 

(ELL. M1NDRE)" 
10090 DATA "HV1S DER 1 ET KAST 3504 2009U 

IKKE FOREKOMMER" 25000 
10100 DATA "NOCEN AF QVENSTAAE NDE 4067 30000 

P0INTMUL1GH EDER, " 
10200 DATA "ANNULE RES POINTENE , OG 3369 

DET BL1VER" 
10210 DATA "NAESTE SPILLERS TUR. " 2199 
10220 DATA " [ DOWN, CRN | DEN DER 2853 30010 

FORST KOMMER OVER" 
10230 DATA "10000 POINT, HAR 2482 

VUNDET!" 

10240 DATA "I CBM 3 ] ( DE ANDRE 3690 30020 

SPILLERE KAN FORTSAETTE , V. 
10250 DATA "HVIS DE HAR LYST.Vr 1 ' 1996 
10260 DATA "[CLR,WHT)" 351 
10270 DATA " [RVS, 3SPACES ,0FF] 2534 3O03O 

[ RVS , 3 SPACES .OFF I I RVS , 
3SPACES.OFF] [RVSlq t] [OFF] 

( UVS 1 q 2 SPACES . OFF | RVS]q 30040 

qlOFFp 

10280 DATA " [ RVS ] q I OFF 1 | RVS | q 2405 30050 
[OFF] |RVS| q [OFF] I RV S | q 



GET KS: 

PRINT 

PRINT 



RVS,3SPA(JES«OFF] | KV S , 
3SPACES,OFF) RVS] a qfOFFl 
|RVS,2SPACl:S]q|OFFl I RVSlq 
q| OFF, CBM 6] n 

DATA " b| 3 SPACES 1 b I 3SPACES , 2351 
CBM <) | c cck | 3S PACES ] jc | CBM R[ 

ck 

DATA " jcccl SHIFT +]ccck 1854 
[9SPACES]b 

DATA "[CBM 7, 3SPACESI1000 + 1426 

50 [CBM 6,6SPACES|b 
DATA "[ CBM 7)3 ENERE EN 2 5.18 

REMMERlCBM 6 | b[ DOWN, LEFT ] b 
DATA " [ DOWN, RVS, CBM 31 TO 4322 

TERNINGER TILBAGE= KAN 

STOPPE ! " 

DATA "KDOWN.CBM 3, RVS I PRESS 2138 

ANY KEY. ","(3" 
PRINT "PRESS ANY KEY" 1624 
F KS="" THEN 20010 1565 
CLR, CBM 71" 545 
RVS , 14SPACES | GAME 2040 
OVERl 16SPACES.0FF|" 
PRINT "[4DOWN,3SPACES] VIL DU 3438 

PROVE IGEN? <J/N>[WHT| M : 
POKE 204,0 804 
GET KS:1F K$=" M THEN 20060 1630 
[F KS="J" THEN POKE 204,1: 2083 
RUN 

IF KS="N" THEN POKE 204.0: 2)74 
END 

END 128 
RETURN 142 
PRINT "| CLR, I 3SPACES.GRN, 2634 
CBM A,RVS,BLU,3SPACES,0FF| 

|CRN, CBM A,RVS,BLU,3SPACES, 
OFF) [ GRN,CBM A,RVS,BLU. 
3S PACES OFF | 

PRINT " 13SPACES,GRN]b|RVS, 2747 
BLU) R OFFl [GRN|b|RVS.BLU| 

U [OFF I CRN ]b | RVS, BLU I N 

[ OFF | 

PRINT "| 13SPACES,GRN]blRVS, 2407 
BLU , 3S PACES , OFF |GRN 1 b I RVS, 
BLU , 3 SPACES , 0 FF [CRN] b[ RVS. 
BLU, 3SPACES,0FF 

PRINT " | 13SPACES ,GRN.CBM Zl 3209 

colCBM X) |GRN,CBM ZJcc 

I CBM X] [CRN. CBM Z|cc|CBM X| 

PRINT f, lDOWN,CYN.10SPACESl 2 569 

COMMODORE MAG AS IN I YEL . DOWN ] 11 

RETURN 142 




Til Commodore 64/128 

S I D - M 0 N 



Indsendt af: 

Anders Pilegaard 
RskcErhe jvej 97 
6100 Haderslev 

0 REM * * XA'k-i t tfA 1 trt eltk' frk& ' &k'k 

****** 

3 REM * 



2 REM * SID 
0 R * 



M 0 N I T 




3 REM * 

4 REM -A-*VfVcVnV>\^-VrA-i--A-^-A-AVc^Vf*-*Vf** 
******* 

5 PRINT "[CLRl"; 

6 DEF FN LE(X)=LEN ( STRS 
(X))-l 

10 GOSUB 9()00:GOSl!B 10Q00:REM * 

* INLT ** 
20 A=PEEK (197)+l:IF A=65 GOTO 

20 

30 IF A<10 THEN ON A GOTO 20, 

20,20,20,20,20.20,20, 1400 
40 IF A<20 THEN ON A-9 GOTO 

300.1800.20,20.2000.1100,20, 

20,2100- 1900 
50 IF AOO THEN ON A- 19 GOTO 

20,20. 100,500,20,20, 700,8011, 

20,1700 

60 IF AC40 THEN ON A- 29 GOTO 




495 
1485 

1529 

2075 

3734 

4431 

4449 



4610 




70 



90 

97 
98 
99 
100 



I 10 
197 
198 
199 

200 



210 
297 
298 
299 
100 



SQ2 



105 



307 
110 



320 

325 
326 

330 
335 
336 

340 



350 

355 



360 
370 

397 
398 
399 
400 

410 
497 
498 
499 
500 



510 
597 
598 

599 
600 



1500,2200,400,20,900,20,20, 
20.20, 1000 

IF A<50 THEN ON A- 39 GOTO 425 5 

600, 20,200, 1600,20,20,20,20, 
20,20 

TF A<*0 THEN ON A-49 GOTO 4452 

20,20,20,20,20,20.20, 1200, 

20,20 

ON A- 5 9 GOTO 1300,20,20,20, 2282 

20 

REM ** FltEQ ** 

GOSUB 50O0":XX=V:YY=l6:X= 5114 

FR(V):MA=65535:MI=D:XA=SID+ 

V*7-7 

GOSUB 3000 :FR(V)=X: GOTO 30 1852 

REM PULSE WIDTH ** 
* 

GOSUB 50O0:XX=V:YY=31 :X= 5623 
PU(V):MA=4095:MI=O:XA=SID+V* 

GOSUB 3UU0:PU(V)=X:G0T0 30 1856 

REM WAVEFORM **, 

GOSUB 50O0:XX=V+4:X=WA(V): 5708 
BI=l:F0R YY=23 TO 14 STEP - 
3:1 F (X AND Bl) GOTO 305 
AE=IU24+XX*40+YY:POKE AE, 5847 
PEEK (AE) AND 127:P0KE AE+J , 
PEEK (AE+1) AND 127:G0TO 307 
AE=1024+XX*40+YY:POKE AE, 4737 
PEEK (AE) OR 128: POKE AE+1, 
PEEK (AE+1) OR 128 
BI=B1*2:NEXT :YY=I4:BI=8 2177 
AD*55296+XX*40+YY:P0KE AD,L: 5819 
POKE AD+I , 1 :AE»1024+XX*40+ 
YY:SA=SID+V*7~3 

POKE SA,X*lfc>+CO(V):A=PEEK 3867 

( 197)! TF A<>2 GOTO 330 

IF YY=23 THEN YY=IL:BI=I6 2195 

POKE AD.L2:POKE AD+1,I2:YY= 4370 

YY+3:BI.=Bt/2:COT0 310 

IF A<>7 GOTO 340 1058 

IF YY=14 THEN YY=26:Bl=-5 2250 

POKE AD,12:POKE AD+1,12:YY= 4370 

YY-3:Bl=BI*2:GOT0 310 

IF A=40 THEN X-X OR BI SPOKE 5557 

AE . PEEK CAE) OR 128:POKE AE+ 

l.PEEK (AE+1) OR 128:G0T0 

If A<>43 GOTO 360 1186 
X=X AND (255-BI):POKE AE, 5734 
PEEK CAE) AND 127:POKE AE+1, 
PEEK (AE+1) AND 127:GOTO 320 
IF A=64 GOTO 320 1041 
WA(V)=X:POKE AD,12:P0KE AD+ 3221 
l,12:A*A+IsGOTO 30 

REM ** VOLUME ** 

XX=5:YY=33:MI=0:MA=15:X=VO: 5984 

XA=S ID+24 : XI-VP*16 : SC=1 

GOSUB 3500:VO=X:GOTO 30 1693 

REM ** TEST: ON /OFF ** 

GOSUB 50O0:XX=V+8:YY=13:X= 6835 
CO(V):Bl=S:XA=SlD+V*7-3 :XI= 
WA(V)*16:SC=1 

GOSUB 4()00:CO(V)=X:GOTO 30 2043 
REM ** R I NGMODUL AT I ON : ON /OF 

F ** 

GOSUB 5000:XX=V+8:YY=18: 7840 
GOSUB 8000:X=CO(V):B1=4:XA= 



610 
697 
698 

699 
700 



710 
797 
798 
799 
800 



810 
897 
898 
899 
900 

910 
997 
998 
999 
1000 

1010 
109 7 
1098 

1099 
1100 

1110 
1197 
1198 

1 199 
L200 

1210 
1297 
1298 

1299 
1300 

1310 
139 7 
1398 

1399 
1400 

1410 
1497 
1498 
1499 
1500 

1510 
1597 
1598 
1599 
1600 

1610 
1697 
1698 
1699 
1700 

1710 
1797 
1798 
1799 
18O0 



S 1D+-V*7- 3 : XI=WA( V >*l 6 ; SC=1 

GOSUB 4000 : CO( V )=X : GOTO 30 2043 

REM ** SYNCHRONIZATION: ON/0 
FF ** 

GOSUB 5000:XX=V+8:YY=23: 7799 

GOSUB 80()O:X=CO(V):Bl=2:XA= 

SID+V*7-3:XI=WA(V)*I6:SC=1 

GOSUB 4000:CO(V)=X:G0T0 30 2043 

REM ** GATE.: ON/ OFF *# 

GOSUB 5000:XX=V+8:YY=28: 7793 
GOSUB 8000:X=CO( V):BI=I :XA= 
SID+V*7-3:X1=WA(V)*16:SC=] 
GOSUB 4000:CO(V)=X:GOTO 30 2043 

REM FILTER FREQ ** 

XX=1 3:YY=22:X=FL:MA=65535: 4352 
MI=0:XA=SID+21 

GOSUB 300O:FI=X:GOTO 30 1666 

REM ** RESONANCE ** 

XX=7:YY=34:MI=0:MA=15:X=RS: 54 73 

XA=S ID+23 : XI=FO: SC=16 

GOSUB 3500 ; RS=X: GOTO 30 1694 

REM ** EXTERIOR: FILTER ON/0 
FF ** 

XX=15:YY=28:GOSUB 8100:X=FO: 6332 
BI=8:XA=SID+2 3:X1=RS*16:SC=1 
GOSUB 4500 :F0=X: GOTO 30 1691 

REM ** VOICE l! FILTER ON/0 

FF ^ 

XX=1 5:YY=30:GOSUB 8100:X=FO: 6274 
B 1=1 :XA=SID+23:XI=RS*16:SC=I 
GOSUB 4500 :FO=X: GOTO 30 1691 

REM ** VOICE 2: FILTER ON/0 

ff m 

XX=15:YY=32:C0SUB 8100:X=FO: 6286 
BI=2:XA=SID+2 3:XI=RS*16:SC=1 
GOSUB 4500:KO=X:GOTO 30 1691 

REM ** VOICE 3: FILTER ON/0 
FF ** 

XX=1 5:YY=34:GOSUB 8100:X=FO: 6302 
B t=4 :XA=SI D+2 3 : X1=RS*1 6 : SC=1 
GOSUB 4500 :FO=X: GOTO 30 1691 

REM ** HIGH-PASS: ON/OFF ** 

XX=1 7:YY=23:GOSUB 8000:X=VP: 5801 

BI=4:XA=STD+24:XI=V0:SC=I6 

GOSUB 4000 :VP=X: GOTO 30 1548 

REM Ste* LOW-PASS: ON /OFF ** 

XX=17:YY=33:G0SUB 8000:X=VP: 5791 

BI=l:XA=SID+24:XI=VO:SC=16 

GOSUB 4000 :VP=X: GOTO 30 1 54& 

REM ** BAND-PASS: ON/OFF ** 

XX=17:YY=28:GOSUB 8000:X=VP: 5813 

&I=2:XA=SID+24:XI=V0:SC=16 

GOSUB 4000 : VP=X : GOTO 30 1548 

REM ** ATTACK ** 

GOSUB 5000:XX=18+V: YY=9:MI= 7624 



0 : MA= 1 5 : X=AT ( V ) : XA=S I D+V*7 - 
2:X1=DE(V):SC=16 
1810 GOSUB 3500:AT(V)=X:GOTO 30 

1897 : 

1898 REM DECAY ** 

1899 
1900 



1910 
1997 
1998 
1999 
2000 



2010 
2097 
2098 
2099 
2100 



2110 
2197 
2198 
2199 
2200 



2210 
2220 



2230 

2240 
2250 

2996 
2997 

2998 

2999 
3000 

•3010 

3020 



3030 



3 OA D 



GOSUB 500O:XX=18+V:YY=17:MI= 
0:MA=15:X«DE(V):XA-SID+V*7- 
2:XI«AT(V)*16:SC=l 
GOSUB 3500:DE(V)=X:GOTO 30 

*EM ** SUSTAIN ** 

GOSUB 5000:XX=18+V:YY=25:MI= 
0:MA=1 5:X=SU(V) :XA=SID+V*7- 
1 :XI=RE(V):SC=16 
GOSUB 35GO:SU(V)=X:COTO 30 



REM 



RELEASE ** 



GOSUB 5000:XX=18+V:YY=O3:MI= 

0:MA«15:X=RE(V)sXA=SID+V*7- 

1 :XI=SU(V)*I6:SC=I 

GOSUB 3500:RE(V)=X:GOTO 30 

REM VOICE 3: ON /OFF ** 

XX=1 J:YY=34:X*V?:BI=8:AS="ON 

": IF (X AND BI > THEN A$= 
"OFF" 

GOSUB 60O0:PRINT 'MWHTT'AS 
POKE SID+24.X*16+V0:A=PEEK 
(197): IF A=43 THEN A$="OFF": 
X=X OR BT : GOTO 2210 ( 
IF A=40 THEN A$="ON ":X=X 
AND (15-BI.):G0T0 2210 
IF A=64 GOTO 2220 
VP-X:GOSUB &000:PR1NT " 
[CBM 5| M AS:A=A+1 :GOTO 30 

REM ** CONTROL #1 

REM m FREQ, PULSE, FILTER FRE 
Q 

GOSUB 6000: PRINT "IWHT|"X: 
LEFTS (SPS,6-FN LE(X)); 
X*-X/256:POKE XA,X-256*X2: 
POKE XA+l.XX 

A=PEEK (I§7>:IP A=4 THEN X= 
X-2*PEEK (653)+l:GOSUB 7000: 

^U^Hm X=X-20*PEEK 
(653)+10:GOSUB 7000:GOTO 
3000 

IF A=6 THEN X»X-200*PEEK 
(653)*10O:GGSUB 7000:GOTO 
3000 



1808 

7392 
1865 

7099 
2068 

7414 
1996 

5427 



3050 IF A=3 THEN X=X-200O*PEEK 
(653)+1000:GOSUB 70O0:GOTO 
3000 

3060 IF A=49 THEN X=INT (X*2): 

GOSUB 7000: GOTO 3000 
3070 IF A=55 THEN X=INT (X/2): 

GOSUB 7000:GOTO 3000 
3080 IF A=64 GOTO 3020 
3090 GOSUB 6000:PRINT "[CBM 5 I "X; 
:A-A+l : RETURN 



3496 
3497 

3498 

3499 
3500 



3510 

3520 

3530 
3540 

3996 
3997 



REM m CONTROL #2 

-A* 

REM p VOLUME, RESONANCE, ADSR 



GOSUB 6000: PRINT ,, [WHT)"X; 
LEFTS (SPS.3-FN LE(X) ) ; :POKE 
XA.XI+SC*X 

A=PEEK (197): IF A=4U THEH X= 
X-H: GOSUB 700O:GOTO 3500 
IF A=43 THEN X=X-l:GOSUB 
7O00:G0TO 3500 
IF A=64 GOTO 3510 
GOSUB 6000: PRINT "I CBM 
:A=A+1: RETURN 



5]"X: 



REM ** CONTROL #3 



3998 

874 

5444 3999 
4000 
4U10 

3383 

1075 ^020 
3023 4030 



4040 

4050 
4060 
2859 4496 

332S 4498 

3684 4499 
4500 
3548 4510 

4520 
3619 4530 



REM ** VOICE CTRL, FILTER CTR 
L ** 

GOSUB 8O0U:AE=1024+XX*40+YY 

IF (X AND BI) THEN FOR 1-AE 

TO 1+3 : POKE I f PEEK C I ) OR 

128: NEXT :G0TO 4030 

FOR I=AE TO 1+3: POKE I .PEEK 

(I) AND 127:NEXT 

POKE XA,XI+SC*X:A=PEEK 

(197): IF A=40 THEM X=X OR 

BItGOTO 4010 

IF A=43 THEN X=X AND (15- 
BI):GOTO 4010 
IF A=64 GOTO 4030 
GOSUB 8500:A=A+I : RETURN 

REM ** CONTROL #4 * 
it 

REM ** CTRL: FILTER VOICE ? » 

GOSUB 8100:AE=I024+XX*40+YY 
IF (X AND BI) THEN POKE AE, 
PEEK (AE) OR 128: GOTO 4530 
POKE AE, PEEK ( AE) AND 127 
POKE XA,XI+SC*X:A=PEEK 
(197>:IK A=40 THEN X=X OR 
BTrGOTO 4510 



3610 

3061 

3013 

1138 
2448 



4020 

3173 

2556 

1267 
2448 



2466 
3939 



2500 
3679 

2435 

948 
1624 



2470 
2645 

1282 
3759 



Til Commodore 64/128 

DATA BUDGKT 

Indsendt af : 

Morten Statusgaard 
Lenborg Alle 8 
2500 Valby 



2 PRINT "ICLRl" 

3 POKE 53280,1 :POKE 53281,1 

6 GOSUB 30 

7 FOR L=54272 TO 54296:POKE 
OrNEXT L 



8 V=54296:W=54276:A=54277:H5= 
54273:L5=54272 

9 S=54278:PH=54273:PL=54274 

10 POKE V,15:POKE A. I 90: POKE 
PH. 15: POKE PL . 1 5 : POKE S,89 

11 READ ft! TP H=-l THEN GOTO 85 

12 READ L 

13 READ D 



14 POKE H5,H:P0KE L5,L:P0KK W, 
65 

15 FOR T=l TO D:NEXT T:P0KE W, 
316 6A 

1565 16 FOR T=l TO 50: NEXT T 
435 17 GOTO 10 
3074 18 DATA 34.75,250.42,52,250,51, 
97,375.43,52, 1*5, $1,97 



5015 

2936 
3805 

1786 
287 
271 

1419 

1938 

1215 

427 
5210 



20 

21 

30 
35 



38 



50 



60 



DATA 250,57, 172,250 
DATA 5.1, 97, 5<JU, 0,0, 125,43, 
52,250,51 ,97,250,57, 172 
DATA 1000.51 ,97,500 
DATA -1.-1,-1 
PRINT " hDOWNl'V'lKEDr 
PRINT ,, [5SPACES,KVS,BLU, 
1SPACES , OFF , 2S PACES • RVS 
[0FF,2SPACES,RVS | [OFF] 
[RVS,3SPACES,0FF. 3SPACES. 
RVS, 3SPACES.OFF 1 |RVS, 
3SPACES,GFF| I RVS, 5 SPACES, 
OFF]" 

PRINT "I 5SPACES,RVSJ I OFF, 
2bPACES,RVS| | OFF [ RVS 
OFF 2SPACES,RVS] (OFF 
RVS I OFF. 25 PACES, RVS 
OFF [ RVS I [0FF,4SPACES, 
RVS] OFF,5SPACES,RVSl [OFF] 

PRINT "| 5SPACES,RVS,3SPACES, 
OFF.2SPACES,KVS] OFF, 
2SPACES,RVS] | OFF iRVSl 
' OFF 2SPACES.RVS] [OFF] 

1 OFF ] |RVS,2SPACES, 
RVS,2SPACES.OFF, 
4SPACES,RVS| [ OFF] " 
PRINT "f 5SPACES. RVS 
2SPACES,RVS| [OFF] 
OFF 2SPACES,RVS] 



I RVS 
OFF 



RVS 
OFF 
KVS 



OFF 



2SPACES.RVS 



I OFF. 
RVS] 
OFF 



70 
75 
77 

78 
80 

82 
83 
fcS5 



86 
88 

108 

1 ] 0 

120 

121 

122 

123 

124 

125 
126 
130 



RVS [OFF 2SPACES, 
OFF] KVS | OFF, 
5SPACE3,RVS I OFF " 
PRINT M [5SPACES,RVS,3SPACES, 
OFF,3SPACES,RVS,2SPACES,OFF, 
2SPACES,RVS,3SPACES.OFF, 
JSPACEti , RVS , 2 SPACES , OFF , 
2 SPACES . RVS. 3SPACES.OFF, 
3SPACES,RVS] | OFF] "* 



PRlN'l 
PRINT 
PRINT 
CUM W| 



R 1 NT 
laSPACESlui u" 
I8SPACES,CBM Q, 

SHIFT + | 



PRINT : PRINT 
PRINT M | 7SPACES] MORTEN 

STAUSGAAKD- PETERSEN" 
REM FOR X=0 TO 3500 : NEXT X 
RETURN 

PRINT " I CUR I": PRINT "|3DOWN] 
«**^**ikDTAST D1T 

NAVN******* M 
PRINT " [ 2 DOWN ! 

*»• 

INPUT M |tiP| M ;NA5 

POKE 53280. 6:POKE 53281.6 

REM * Art * * Aft ft **Jf l t d A fl' ^iM Vift 

REM ***?I3^^^ 

****** 
****** 

rem ( 

KEM ^*v^-^*sTAUSGAARD******* 
KEM *****25.JANCJAR 1985***** 

****** 



1828 
4907 

1491 
972 
829 
2177 



2816 



2974 



2478 



371 
1286 
1443 

371 
3291 



142 
3662 



3220 



766 
1445 



PRINT 
PRINT 
PRINT 



glr] 

WHTl" 
8 SPACES | 
*****BQL tGUDGI FTER***-- *" 
PRINT "[0OWK,9SPACES| L. 

BOLIOUDCIFTER" 
PRINT "| D0WN,9SPACES 

FORSIKRINGER" 
PRINT "|D0WN,9SPACES 
BEFORDRI KG'" 



316 

258 
2952 



170 
160 
190 
200 
220 
230 
235 

237 

240 
250 
260 
270 
280 
290 
300 
320 
330 

340 
350 
360 
370 

380 



390 



400 



410 



420 



430 



440 



450 

451 

452 

453 

454 
458 
460 
46 5 
470 
1000 



PRINT H lDOWN,9SPACESj4. 1935 

1NDTAEGTER" 
PRINT "|DOWN,9SPACES|5. 2409 

FAMILLIEUDGIFTER" 
PRINT "|DOWN,9SPACES]6. 2851 

BANKKONT I OG VAERDIPAP I R" 
PRINT "|DOWN,9SPACES]7. 2ti<U 

HENTE/GEMME DATA" 
PRINT "lDOWN,9SPACESj9. 2372 

AARSREGNSKAB" 
PRINT M [DOWN,9SPACES]0. SLUT 2453 

PAA PROCRAMMET" 
PRINT "[DOWN, RVS | 3947 
ft* a * * * a -v * * * * T R Y K El 

TAL****** **»"<*** * [ OFF | " 
GET VHS;IF VHS^"" THEN GOTO 1669 
237 

IF VH$= H 1" THEN GOSUB 1000 1109 
IF VH$="2" THEN GOSUB 1500 1213 
IF VH$="3" THEN GOSUB 2000 1241 
IF VH$="4" THEN GOSUB 2500 1090 
IF VH?-"5" THEN GOSUB 3000 1118 
IF VHS="6" THEN GOSUB 3500 1222 
IF VHS="7 n THEN GOSUB 4000 125Q 
IF VHS= M 9" THEN GOSUB 9000 1143 
LF VHS="10" OR VHS="0" THEN 1595 
GOSUB 350 

GOTO 125 604 
PRINT "ICLRj" J|6 
POKE 53280,5: POKE 53281,13 1669 
PRINT : PRINT : PRINT : PRINT : 1841 
PRINT : PRINT :PRINT ;PRINT 
PRINT "|9SPACES,RVS,CBM 3, 2614 
4S PACES, OFF, 2SPACES . RVS | 
|0FF,4SPACES,RVS] OFF, 
3SPACES.RVS] [OFF] |RVS, 
5SPACES.0FF] " 

PRINT "(8SPACES, RVS] I OFF, 1964 
4 SPACES, RVS] [OFF RVS] 
|0FF,4SPACES,KVS] [OFF, 
3SPACES,RVS] [OFF,3SPACES, 
RVS] | OFF] " 

PRINT " 1 8SPACES , RVS ] I OFF. 1857 
6SPACES,RVS] I0FF.4SPACES, 
RVS I I OFF, 3S PACES. RVS] |OFF, 
3SPACES , RVS] [OFF]" 

PRINT " [ 9S PACES, RVS ,4S PACES . 2 ! 31 

OFF,2SPACES.RVS] [OFF* 

4S PAGES , RVS ] [ OFF , 3 S PACE S , 

RVS] |0FF,3SPACES,RVS| |OFF] 

PRINT "II3SPACES,RVS] |OFF] 1840 

]RVS] [OFF,4SPACES.RVS] 

(0FF,3SPACES.RVS| [OFF, 
3 SPACES .RVS] [OFF]" 
PRINT " [ 8S PACES, RVS | OFF, 1964 
4SPAC£S,RVS) [OFF RVS| 

[OFF.4SPACES.RVS OFF, 
3SPACES,RVS| |OFF,3SPACES, 
RVS] [OFF]" 

PRINT "[9SPACES,RVS,4SPACES, 2302 
OFF , 2 SPACES , RVS , 4SPACES , OFF , 
2SPACES,RVS,3SPACES,0FF, 
4SPACF.S ,RVS] [OFF]" 

PRINT "[7SPACES,RVS,RED, 1435 
2 5SPAGES .OFF] " 

PRINT , 153 

PRINT " | 6SPACES I VIL DU 3182 

STARTE OM IGEN(J/N)? 
GET XS:IF XS^'J' THEN GOSUB 1648 
2 

IF XS="N" THEN GOSUB 10000 1759 
GOTO 453 606 
FOR X=0 TO 1 0000: NEXT X 1313 
PRINT "[CLR|" 316 
END 128 
RE M ** * ********* *** * ** * * ** ** 

****** 

PRINT "|CLR| 



1020 PRINT "| 6 SPACES I 2784 

v«w<** B0 L IGUDG1 FTER*****' ' 
1030 PRINT "I2D0WN,4SPACES] 2752 

TERM1NYDELSER t ( ; M KR-";TY 
1040 PRINT "lD0WN,4SPACES]HUSLEJE 2296 

I 7S PACES I", * ;"KR.";HL 
1050 PRINT "|D0WN,4SPACES| 3477 

EJENDQMSSKATTER" , , ; "KR. " ; ES 
1060 PRINT "| DOWN ,4 SPACES | 2914 

VARME/OLIE [ 5SPACES 1 " , . ; "KR - " 

:V0 

1070 PRINT "[D0WN,4SPACES|EL/CAS 2271 

I 9 S PACES 1 ", - ;"KR. " ; EG 
1060 PRINT "[DQWN,4SPACES] 3141 

GRUNDEJEKFOREN. ", • ; "KR. " ;GF 
1090 PRINT "[D0WN.4SPACES] 2759 

REPERATIONERI 3SPACESJ ", , ; 

"KR.";RP 

1100 PRINT "|D0WN,4SPACES| 2873 

fae;llesudgiftek", f ;*'kr.";fu 

1110 INPUT "|2D0WN,4SPACES| 3755 

***SKAL DER LAVES OM 
(J/N>***":SV$ 
1120 IF SVS<>'\T THEN RETURN 884 
1130 PRINT " ( HOME , 3D0WN | 11 620 
1140 PRINT SPC(32): INPUT TV 1024 
1150 PRINT " | DOWN 1 " ; SPC( 32 ) : INPUT 1367 

HE 

1160 PRINT " | DOWN ] "; SPC( 32 ) : INPUT 1200 
ES 

1170 PRINT "ID0WN1 ,, :SPC(32):INPUT 1527 
VO 

1180 PRLNT "[DOWN|";SPC(32):INPUT 1263 
EG 

1190 PRINT "lDOWN!";SPC(32):INPUT 1263 
GF 

1200 PRINT "[D0WNU";SPC<32):INPUT 1256 
RP 

1210 PRINT ,, |D0WNl";SPC(32):INPUT 1240 
FU 

1220 PRINT ,f [2DOWNr f ;SPC(33): 1557 
INPUT SVS 

1230 GOTO 1120 579 
1500 REM ******F0RSIIC1RINCER***** 

1510 PRINT "ICLR ] " 316 
1520 PRINT "[bSPACES] 3291 

*****F0RSIKR1NGER* ****" 
1530 PRINT " [ 2 DOWN J 3075 

BRANDF0RSIKR1NG". . ;"KR.":BF 
1540 PRINT " | DOWN] 4064 

INDBOFORSIKRING". , ;"KR.";NF 
1545 PRINT "|D0WN|HUSFORSIKRING'\ 2681 

,;"KR.";HF 

1550 PRINT "(DOWNlAUTOFORSIKRING" 2907 

1555 PRINT " | DOWN ] ULYKKESFORS I . " , 2815 

• . M ■ UF 

1556 PRINT* "1dOWN|HVSFORSIKRING" 3211 

• "KR ""IF 

1560 PRINT "IDOWNICRUPPELIVS 3204 

FUR. " 3 M KR. " ;GL 
1565 PRINT ft J6oWN|DACPENGE FORS." 3018 
'•"KR. " OF 

1570 PRINT '"'[DOWN I DANHARK 3694 

FORSTSYGEKS M ,.;"KR.":DS 
1600 INPUT "|2U0WN,5SPACESl 34 72 

***SKAL DER LAVES OM 
(J/Kp** ";SVS 
1605 IF SVS< ■ n J" THEN RETURN 884 
1610 PRINT "| HOME |" 314 
1620 PRINT "UDOWNr 1 459 
1630 PRINT SPC(32):1NPUT BF 996 
1635 PRINT "| DOWN l H SPC( 32 ); INPUT 978 

NF 

1640 PRINT "| DOWN |" SPC( 32 ): INPUT 9 54 
HF 

1645 PRINT "iDOWNl" SPC(32): INPUT 926 
AF 



1650 

1655 

1660 

1665 

1670 

1700 
1705 
1710 
1999 

2000 

2005 
2010 

2015 

202O 

2025 

203O 

204 0 
2045 
2050 
2055 
2060 

2065 

2070 
2500 

2505 
2510 

2515 

2520 

2525 

2530 

2535 

2540 

2550 
2555 
2560 

2565 

2567 

2570 

2575 

2580 
2585 
3000 

300 5 
3010 

3015 

3020 



SPC(32) : INPUT 
SPC( 32) : INPUT 
SPC( 32) : INPUT 
SPC( 32) : INPUT 



PRINT "[DOWN | 
UF 

PRINT "I DOWN] 
LF 

PRINT "[DOWN | 
GL 

PRINT "| DOWN | 
DF 

PRINT "[DOWN|" SPGC32) : INPUT 
DS 

PRINT "|D0WN|":PR1NT SPCCJ5) 
INPUT SVS 
GOTO 1605 
STOP 

RE M *** *** *** BE FORDRIN G***#* 

PRINT M |CLR|" 

PRINT "|9SPACES| 

*****BE FORDR I NC*****" 

PRINT 11 1 2D0WN ] 

BENZ INU DG1 FTER", , ;"KR. ":BZ 

PRINT " [DOWN ) VAEGTAFG1 FT" , , ; 

"KR . ; VA 

PRINT "| DOWN) BUS /TOG",.,; 
"KR . ":BT 

INPUT " I 3D0WN ,4SPACES ] 
***SKAL DER LAVES OM 

IF SVS<>"J" THEN RETURN 

PRINT "[HOME]" 

PRINT "f2D0WN|" 

PRINT SPC( 32): INPUT BZ 

PRINT "[DOWN)" SPC( 32): INPUT 

VA 

PRINT "(DOWN)" SPC( 32): INPUT 
BT 

GOTO 2030 

REM NDTAEGTER* * **** 

i?* ** - M b 

PRINT "ICLR]" 
PRINT "[ 1 1 SPACES | 
^^*lSptASGTBR** ! ^ M 
PRINT "|2DOWN]L0N EFTER 

SKAT", , ;"KR. ";LS 
PRINT "I DOWN! 

RE NT E IN DT A EG E TE R " , . ;"KK."; 
PRINT "IDOWNIBOLIOSIKRING" 
;"KR.":BS 

PRINT [ DOWN I BORNE TILSKUD" 
, ;"KR.":BO 

PRINT "[DOWNlFERIEPENCE", , ; 
"KR.";FP 

INPUT "I 3D0WN,4SPAGES| 
***SKAL DER LAVES OM 

(J/N)***";SVS 

IF SVS<-'"J° THEN RETURN 



m 



PRINT 
PRINT 



HOME] " 
J DOWN |" 



INPUT L-S 
PRINT "[DOWN 



SPC(32): 
SPC( 32): INPUT 
DO-WNl" SPC( 32): INPUT 



RI 

PRINT 
BS 

PRINT " | DOWN] " SPC(32):INPUT 
BO 

PRINT "I DOWN I" SPC(32):INPUT 
FP 

PRINT "|UP|" 
GOTO 2540 

REM ^**?«**'**FAM3i 1 E UDG I FTER* 

PRINT "ICLRj" 

PRINT M [6SPACES| 

*****FAMILI EUDGT FTER--"****" 

PRINT " | 3 DOWN | RAD 10/ TV - 

LICENS",.;"KR. M ;RT 

PRINT "LEJE AF TV M.M" M ; 

"KR.":1.T 



1006 
970 

99$ 

938 

1042 

977 
421 
663 
144 

316 
2 766 

3215 

2741 

2459 

3807 



884 
314 
459 
1016 
970 

1042 

585 



316 
2466 

34 33 

3507 

2991 

2420 

2192 

3807 

884 
314 
1542 

1018 

1034 

1009 

1026 

308 
613 

316 
3166 

3108 

2869 



PROGRAM OG DIREKTE MODE 



EXTERN ORORER 



AUTO I 

BANK 1 

BEGIND 

BEND 

CLR 

CONT 

DATA 

DELETE 

DIM sv (t/SV, t/5V) 

DO/LOOP/WHILE/UNTIL/EXIT 

END 

FAST 

FOR/TO/STEP/NEXT 

GET sv. sv... 

GETKEY sv. sv... 

G064 

GOSUB ! 

GOTO t 

HELP 

IF/THEN/ELSE (BEGIN/BEND) 
INPUT " " ; sv, sv... 
KEY t, sv 
LET sv = sv/! 



LIST t - ! 

NEW 

ON sv 

POKE a, t 

PRINT *' " (PRINT 

PRINT USING " it 

PUDEF " " 

READ sv. sv... 

REM tekst 

RENUMBER t, I. t 

RESTORE t 

RESUME t. NEXT 

RETURN 

RUN/RUN t 

SCNCLR m 

SLEEP I 

SLOW 

STOP 

SYS a. t. t 1, t 
TRAP 1 
TROFF 
TRON 
WAIT !. t. t 



TAB(t)) 
SV 



fodt 10) 



RAM UDVIDELSER 

FETCH 4* bytes, intsa, expsa, expb 
STASH # bytes, intsa. expsa, expb 
SWAP # bytes, intsa, expsa, expb 



BIN*RE 

BLOAD fn, dr. u, b. s +a 
BOOT In. dr. u 

BSAVE fn, dr, u, b, s -fa TO si +a 



SPRITES 

COLLISION m. a 
MOVSPR t. x, y, ha, v 
SPRCOLOR fa, fa 
SPRDEF 

SPRITE t, t. t, J, x. y, m 
SPRSAV t/sv, l/sv 

funktioner. 
BUMP (t) 
RSPCOLOR (t) 
RSPPOS (t, t} 
RSPRITE (t. t) 



MUSIK ukendt forkortelse. se manual 

ENVELOPE t. atk. dec, sus, rel.wf. pw 
FILTER treq. Ip. bp. hp. res 
PLAY "vn pn tn un xn elementer" 
SOUND v. t, d. dis, m, s. w, p 
TEMPO t 
VOL t 



APPEND # If. fn, dr, u 
BACKUP dr TO dr 
ON u 
CLOSE If 
CMD If 
COLLECT dr 

CONCAT fn dr TO fn, dr, u 
COPY fn. dr TO fn. dr. u 
CATALOG dr. v. fn 
DIRECTORY dr, v, fn 
DCLEAR dr, u 
DCOLSE If, u 
DLOAD fn, dr. u 
DOPEN # If fn 1, dr 
ON u, W 
DSAVE fn. dr, u 
DVERIFY fn, dr. u 
GET tt If, sv. sv... 
HEADER fn. I sv/t. dr, u 
INPUT tt If, sv, sv... 
LOAD sv, u, t 
OPEN If, u, t. fn. CMD sv 
PRINT # If, "", sv 
RECORD *t If. t, byte 
RENAME dr. fn TO fn. u 
RUN SV, dr. u 
SAVE fn. u. t 
SCRATCH fn, dr. u 
VERIFY fn, u, I 



reserverede vanabler: 

DS. DSS. ER, ERRS, EL ST. Tl. TIS 



s 



Hjxlp til hukommelsen 




|fc> cm 




128'eren har virkelig mange I 
mandoer at holde rede pe. Dr 
vaere svasrt at huske alle tyi 
seme I hovedet, og derfor 
RUN lavet denne skabeioa 
du kan laegge oven pd din 12 




FUNKTIONER excl. grafisk/spnles 



DBF FN fn{sv| = 
ABS (t) 
ASC (sv) 
ATN (t) 
CHRS (t) 
COS (t| 
DEC ("sv") 
ERRS (t) 
EXP (t) 
FN fn (t) 
FRE |b) 
HEXS ft) 
INSTR (sv, sv. s 
INT |t) 
LEFTS (SV, 
LEN (SV) 

.-LOG (t) 



(sv. s 



MlDS (sv, s ^ 
PEEK (a) 

PI 

POINTER (sv) 
POS (t) 
RIGHTS 
RND (!) 
SGN (!) 

SIN (t) 
SPC (t) 
SQR (t) 
STRS (t) 
TAB (t) 
TAN (t) 
USR (t) 
VAL (sv) 
XOR (t, t) 




GRAFIK 

BOX m ( x, y, x, y, v, p 

CHAR m, x, y, sv. rvs 

CIRCLE rn, x. y, x +r. v t si. v, gr 

COLOR m. fa 

DRAW m. x, y TO x. y 

GRAPHIC m. t. t 

GRAPHIC QLR funktioner 
LOCATE x, y RCLR (t) 

PAINT fa. x. y, m RDOT (t) 

SCALE t- x. y RGR (t) 

SSHAPE sv. x. y. x. y RWINDOW 
GSHAPE sv, x. y. m 
WIDTH t 
. WINDOW x, y, x. y, clear 



MONITOR 

A assembler 
C compare 
D disassemble 
F fill 
G go 
H hunt 
J jump 
L load 
M memory 
R registers 
S save 
T transfer 
V verify 



X exit 



& 

% 



BASIC 7.o ESC koder 

Tryk pa ESC-tast etterfulgt af: 
A Muhggor auto-indsaet mode 
B Sa=t bund af window pa cursor pos 
C Forhindrer auto-indsset mode 
D Slet linje pa cursor pos. 
E Sast cursor t/ikke flash mode 
F Sas! cursor t/flash mode 
G Muliqgor klokke (CONTROL G) 
H Forhindrer klokke 
I Indsast linje pa cursor pos. 
J Flyt t/start af nuv. linje 
K Flyt t/siut af nuv. linje 
L Muliggor skaermrulning 
M Forhindrer skaermrulning 
N Retur t/normal mode (kun v/80 tegn) 
O Slet indsasr. anforselstegn og omvendt skrift 
P Slet t/start af nuv. linje 
Q Slet t/slut at nuv. linje 

R Seel skaerm t/omvendt skrift {kun v/80 tegn) 
S Skift t/blok cursor (kun v/fiO tegn) 
T Seet top af window pa cursor pos. 
U Skift t/streg under cursor 

V Rul skserm opad 
W Rul skaerm nedad 

X Skift mellem 40/80 tegn 

Y Sa?t tabulator (fodt 8 pladser) 
Z Slet alle tabulatorstop 

/E Rens til slut af skasrm 



a = adresse, b - bank - nr., dr = drevnr.. fa = farve. fn = (fil)navn. 
gr = grader, ha = hastighed if — logisk filnr.. m = mode, p = paint, 
r = radius, rvs = reverse, s = start, si = slut, sv = streng/vanabel. 
t = tal (el. tilstand) 



ig mange kom- 
?de pa. Det kan 
ke alle syntak- 
og derfor har 
skabelon, som 
pa din 128'er. 




Du skal bruge et stykke pap 

der er 54 x 22 cm 

Buk forst 1 , derfter 2 og 3 

Heft det hele sammen i »x« i 
begge sider 



Klaaber du den op pa et stykke 
pap som vist. dsekker du heller 
ikke for koleribberne pa compu- 
teren. 

God fornojelse. 




EL-KAOS 

Con blocks AN 
TENNE-OM-SKIF 
TER rydder op i 
rodei og spare 
dig de imieren- 
de kabelskift. 2 
indganga og 1 ud- 
gang til TV mulig' 
gor skifi mellem 
computer, normal ■ 
og lokaJanlenne 
Fas hos de feiende tw 
radi o/computer-forrei- 
ninger. 



Typiskdetailpris:Kr. 148,- 
incl. kabel. 

Ntermeste forhandler 
anvises pa tlf. 02-42 37 00. 



Q 

Conbiock 



3025 
3030 
3035 
J040 
3045 
3050 
3055 
3060 
3065 
3070 
3075 
3080 

3090 
J 100 
3L05 
31 10 
3 1X3 
3120 
3125 
3130 
3135 
3140 
3145 
31 50 
1155 
3 1 60 
3165 
3170 
3180 
3185 
3500 

3505 
3510 

3515 

3520 

3525 

1530 

3535 

3540 

3545 

3550 

3555 

3560 
3565 
3570 

3575 

3580 

3585 

3590 



PRINT "TELFON | 65PACES ] ' , m 
"KR.";TF 

PRINT "KONTO K0b| 3SPACES I", 
;"KR.":KK 

PRINT "AVIS-ABONNEMENT" , . ; 
"KR.";AA 

PRINT "BLADE M.V- [ 2SPACES I 
, ;"KR.";3M 

PRINT "VUGGESTUE [ 3SPACES I 



;"KU.";VG 
PRINT "n 



PRINT "DAGPLEJEl 3SPACES] ; 
"KR.";DA 
PRINT "BORNEHAVEl 2SPACES I", , 

;"KK.":BH 

PRINT FR ITl DSHJEM". , ;"KR.": 
FH 

PRINT "FAGFORENINGSKONTI",, I 

"KRV ?FK 

PRINT "ARB.LOSHEDSKASSE",,; 
"KK.";AL 

PRINT "KONTICEKTl 2SPACES I", , 
"KR . " ; KO 

INPUT*"! 2DOWN,6SPACES ] 
***SK&L DER LAVES OM 

If SRO'y^ THEN RETURN 
PRINT "iHOMEl" 
PRINT "[3UOWWI" 
PRINT SPC(32): INPUT 
PRINT SPC< 32): INPUT 
SPC( 32): INPUT 
SPC< 32 ) : INPUT 



PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRIM- 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
GOTO 



SPC(32 

spc(32; 

SPC( 32 . 
SPC< 32 
SPC(32 . 
SPC<32 

spc<32 ; 

SPCU2 
SPCC 32 . 

•fupp 

3080 



RT 
LT 
TF 
KK 
AA 
BM 



INPUT 

INPUT 
: INPUT VG 
: INPUT DA 
: INPUT 
: INPUT 

: I KIT! 
: INPUT 
: INPUT 



BM 
Y\\ 

FK 
AL 
KO 



rem *WW^*BANK KQNTI*** 

PRINT " Cl.Rl" 

PRINT " 9SPACES |*****BANK 

KOWT1 
PRINT "[2DOWNI 
JJORNEOPSPAK I NG" . , : 1, KR . " : BO 
PRINT "[DOWN! 

SELVPENSI ONERING", ^"RR.'VSP 
PRINT "(DOWN IKAP1TALPENSLON" 

: n KR.";KP 

PRINT "[DOWN I 

INDEXKONTRAKTEK" * ■ : "KK. " : IK 
PRINT "[ DOWN ISPAREI.AAN 
I 3SPACE5 | " , , ;"KR.";SL 
PRINT "I DOWN I 

ETABLEKINGSKONTO" , , "KR . " : EK 
PRINT "[DOWN [BANK KONTO I 
|2STACES|'\, :"KR.";Rl 
PRINT "[DOWN I BANK KONTO 2 

I 2SPACES [ "• , ;"KR.";B2 

INPUT "[2DOWN,5SPACES] 
***SKAL DER LAVES OM 

(J/N)***";SV$ 
IF SV$0"J" THEN RETURN 
PRINT "[HOME]" 
[ 3 DOWN | " 
BO 
" DOWN 



PRINT 
INPUT 
PRINT 
SP 

PRINT 
KP 

PRINT 
IK 

PRINT 
SL 



I DOWN I 



SPCC 32): 
SPC(32): INPUT 
SPC(32 ); INPUT 
5PC( 32): INPUT 
3PC( 32 ): INPUT 



25 18 


3595 


2466 


3600 


2964 


3605 


2251 


3610 




3615 


2661 


3999 




4000 


1916 






4010 


1999 


4020 


2342 


4030 


3678 






4040 


3073 




2293 


4050 


361 1 


4060 




4061 




4062 


884 


4090 


314 


4100 


510 


1018 


4110 


1015 




1005 


4120 


1133 


1 1 18 


4130 


1003 


4140 


1007 




992 


4150 


998 


1000 


4160 


1003 


4200 


1 1 29 


4? 10 


1137 


42 1 1 


308 


4212 


627 


4213 




4214 




421 } 


316 


4216 


2640 


42 1 7 




4220 


3304 


4230 


3366 


4250 
ft 


2802 


4252 




4254 


3477 


4256 




4i JO 


2223 


4260 




4262 


3273 


4264 




4266 


2804 


-4268 




4270 


2884 






kill 


3792 






4276 




427S 


LIU"-* 


314 


4280 


1509 


4282 




4284 


1078 


4286 




4288 


1046 


4290 


998 


4292 




4294 


I04fo 


4296 




4298 



PRINT "I DOWN]" SPCC 32): INPUT 
EK 

PRINT "| DOWN 1 M SPC(32>:1NPUT 

PRINT "iDOWNl" SPC( 32): INPUT 
B2 

PRINT "I UP]" 
GOTO 3555 
STOP 
REM 

****** 

PRINT "|CLR]" 

PRINT' 'M7SPACES|***-~-*DATA 

PAA BAAND*****" 

PRINT "[2DOWN.7SPACES]] 
[4SPACES|HENTE DATA FRA 

BAAND" 
PRINT "[2DOWN, /SPACES) 2 
[4SPACES|CEMME DATA PAA 

BAAND" 
INPUT " f 2DOWN, I LSPACES I 

***V«EtG 1/2***":VH 

IF VH=2 THEN 4600 
W. VH=I THEN A 090 
RETURN 

PRINT "I CLR|" 

PRINT M [5SPACES]*****HENTE 

DATA FRA BAAND*"""''*" 
PRINT "|. 2 DOWN | 

********* K IGT xcbi BAAND*****" 
PRINT M [ DOWN J ********* |RVS I 
PRESS KETUKN | OFF ] ****t* n 
INPUT WW 

PR I NT " | DOWN ] »**A*******(SHHi 
TILBAGE******" 
PR I NT " [ DOWN 1 ********* | RVS | 
PRESS RETURN | OFF I ******" 
INPUT WW 

OPEN 1, t ,0, "BOUGH)" 

INPUT#I f TY 

lNPUT#l. t HL 

INPUT* I, ES 

INPUT* I ,V0 

INPUTS I , EG 

TNPUT*1,GF 

rNPUT#l,RP 

TNPUT*1 ,FU 

REM ******* CLOSE I 

REM * ******^ ************ *- f ** 

REM ******** OPF.N2, t ,0, M FOKS 
IK" 

INPUTtfl r BF 
INPUT* I, NF 
INPUT* 1 .HF 
INPUT*! ,AF 
INPUT*! « UF 
INPUTffl t L¥ 
INPUT* 1,GL 
INPUT* I, DF 
INPUT* ! , DS 

REM ft**»vft*ftBEFORDRING******* 
****** 

INPUT*! , BZ 
INPUT*!, VA 
1NPUT*1 ,BT 

REM *******INDTAEGTEU***"*"** 
****** 

INPUT*1,LS 
INPUT* I ,R1 
INPUT*1,BS 
INPUT*!, BO 
INPUT*! r FP 

REM *******FAMIL1EUDGIFTER** 
****** 

INPUT*! » RT 
INPUT* 1 . LT 
INPUT#1,TF 
INPUT* 1 .KK 



982 
1017 

1025 

308 
703 
144 

316 
2512 

2370 
2380 

2544 

956 
946 
342 
316 
2765 

3135 

3147 

400 
3610 

3147 

400 
1465 
717 
668 
501 
828 
564 
564 
557 
541 



524 
620 
572 
516 
676 
604 
660 
540 
493 



589 

604 
493 



557 
700 
477 
427 

461 




4300 
4302 
4304 
4306 
4308 
4310 
4312 
4314 
4316 
4320 

4322 
4324 
4326 
4328 
4330 
4332 
4334 
4336 
4338 
4598 
4599 
4600 

4610 
4620 

4630 

4631 



4632 
4640 



4650 



4660 
4680 
4690 
4692 
4693 
4694 
4695 
4696 
4697 
4698 
4800 
4810 
48J2 
4814 
4816 
4818 
4820 
4822 
4824 
4826 
4830 

483S 
4840 
4842 
4843 

4844 
4846 
4848 
4850 
4852 
4854 
4856 
4858 
4860 
4862 
4864 
4866 
4868 



INPUT* 1, AA 

rNPOTf 1 , BM 

INPUT* I , VG 
IN PUT* 1, DA 
INPUT*l,BH 
INPUT#1,FH 
INPUT*!, FK 
INPUT* 1 , AL 
INPUT* 1 . KO 

REM **fc*ft**BANK KONTI******* 

****** 

INPUT*1,B0 
INPUT* 1 i SP 
INPUT*] , KP 
INPUT* 1 , IK 
INPUT*] , SL 
INPUT* 1 1 EK 
INPUT*!* B I 
INPUT* 1.B2 
INPUT*] , NA$ 
CLOSE 1 
RETURN 

REM #flWt *** * #* ** 

*** 

PRINT "ICLRl" 

PRINT M [4SPACES]*****GEMME 

DATA PA A BAAND***** 1 ' 
PRINT "[ 3D0WN] ****** **FIND 

DET RIGTIGE BAAND*********" 
PRINT "iDOWN/JSPACESi 
******** | RVS] PRESS RETURN 
I OFF ] ft * A: ** ** * * ' AV 

INPUT WW 

PRINT "[3DOWN] 

***** *** *** *** SPOL T t L 

BAGE***********'' 
PRINT "I DOWN.3SPACES 1 
******** | RVS] PRESS RETURN 
I OFF | **********" 

INPUT WW 

OPEN 1,1 f 1 , "BOLIGUD" 

PRINT#1,TY 

PRINT*] t HL 

PRINT*! ., ES 

PRINT*] , VO 

PRINT* 1 , EG 

PRINT*! ,GF 

PRTNT#1,RP 

PR INT* I , FU 

REM ******tt2 , 1 , I , "FORS IK" 

PR1NT*1,BF 

PRINT*1,NF 

PR INT* I, HF 

PRINT*], AF 

PRINT*1 ? UF 

PRINT* 1,LF 

PR I NT* I, GL 
PRINT*! . OF 
PR I NT* I , DS 

REM ^-Vc^^^BEKORDRlNG***** 

****** 
PRINT* 1 , BZ 

PRINT* I. VA 
PR1NT*1 , BT 

REM *-A-****>t-A-*LNl)TAEGTER**^* iV 

****** 

PR1NT*1,LS 

PRINT* 1 ,RI 

PRINT* 1 , BS 

PRINT* 1, BO 

PR I NT* 1 , FP 

PRINT* 1 t RT 

PIUNT#1,LT 
PRINT*] ,TF 
PRINT#1.KK 
PRINT*1,AA 
PRINT*! t BM 
PRINT#1*VG 
PRINT* 1 .DA 



4 36 


4870 


636 


487? 


700 


4874 


460 


4876 


556 


4878 


588 


6400 


6 36 




612 


490? 


740 


49(14 




4906 




4908 


668 


4910 


565 


491 2 


501 


4914 


660 


491 6 


756 


4918 


628 


6000 


443 


600 1 


459 




til 




'> Sfl 
— j\j 


900 5 


142 


9010 




901 5 


316 




2720 


9020 




9030 


3948 


9035 


3469 


903 7 




9040 




9045 


400 


9050 


3959 


9060 




9070 




9080 


3469 


9090 




9500 




9505 


400 




1497 


9507 


737 


9510 


688 




521 




848 


9515 


584 




584 




577 


9520 


56! 






9525 






640 


9530 


j y — 




5 36 


9532 


696 


9535 




Ofl" 




560 


9537 


513 






9538 


609 


9540 


624 




513 


9550 



9560 
577 9570 
720 

497 9575 
447 

481 9535 

64] 

593 

688 9590 

696 

456 

656 9yOU 
720 9905 
48010000 



PRINT*! , BH 
PRINT*] t FH 
PRINT* I ,KK 
PR1NT*1 , AL 
PRINT*1 ,KO 

REM *********BANK KONTI***** 

***** 

PRINT*] ,B0 
PRINT*1 ,SP 
PR1NT*1,KP 
PRINT*! i IK. 
PRINT*! ,SL 
PRINT* 1 , EK 
PRINT*1 ,B1 
PRINT* 1 , B2 
PRINT*1,NAS 
CLOSE 1 
RETURN 

REM *********AARS REGNSKAB*** 
****** 

PRINT "|CLR] U 

FW=TY+HL+ES+ V0+EG+GF+RP+ FU+ 

BF+NF+KF+AF+UF+LF+GL+DF+DS 

FW=FW- 1 -liZ-»-VA + BTtRT+LT + TF + KK* 

AA+BM+VG+DA+BH+FH+FK+AL+KO 

A1=LS+IU+BS+B0+FP 

OU=Al-FW 

REM *******MAANEDL I 

******* 

V1=LS/12+. 5;V1=INT 
FI=FW/12+.5:F1=INT 
A2=Al/12+. 5;A2=INT 
Ol=OU/!2+.5:Ol=INT 
02=OV/12+. 5:02=INT 
H]=HH/12-.5:H!=INT 
UU=OU-OV-HH 
Ul=UU/12+.5:Ul=tNT 
PRINT "ICLR]" 
PRINT " [ 9SPACES ] 
*****AARSREGNSKAB* 
PRINT "1 DOWN)**F0R ":NA$ 
PRINT "tDOWN,2SPACESl 
INDTAGTER" . "AARLIGT", 
"MAANEDLIG 
PRINT 

"eeeeeeeeeeeeeeeeeeeeeeeeeee 
eeeeeceeeeee" 
PRINT " LON EFTER SKAT" 
VI 

PRINT M +FERIEPENGE'\FP/' 

_ n 

PRINT 1 '+RENTER I 4SPACES I " , Rl . 
ii it 

PRINT SPCC 

20 )"eeeeeeeeeeeeeeeee „ 
PRINT -AARLIG INDTAEGT » Al . 
A2 

PRINT PASTE UDGI FTER" ,FW, 
Fl 

PRINT SPC( 

20 )"eeeeeeeeeeeeeeeee 
PRINT "=OVEK/UNDERSKUD H .Ol!, 
01 

PRINT 
02 

PRINT 
PRINT 



(VI) 
PI) 



(Ui) 



**** *>• 



.LS, 



'-QVR1GE UDGIFTER".OV, 



"-HU5H0LDN[NG'\HI1,H1 

- SPCC 
20 )"eeeeeeeeeeeeeeeee 

PRINT "=*OVER/UNDERSKUD , \UU, 
U I 

PRINT 

'SV*->^A*iW,--^.-,V*-.Vi-->******Ve***>V 
****** *****" 

PRINT "[DOWN, 4 SPACES | 
vv*a******| RVS) PRESS ANY KEY 
I OFF ] * **-& * ■* * - * y ^_ft 
GET AS: IF AS= M " THEN 9900 
IF AS<>="" THEN RETURN 
NEW 



688 
585 
521 
680 
776 
648 
463 
479 
692 
258 
142 



316 

5622 

5843 

1704 
913 



2512 
2479 
2284 
2690 
2744 
2548 
1383 
2597 
316 
2 706 

1586 
3120 



5250 

2617 

2419 

2440 

2943' 

2237 

2491 

2943 

2993 

2666 

2281 
2943 

2915 

3954 

3523 





100 A=828;1=0:J=0 1.265 
110 FOR K=0 TO 1 5 : READ B:IF B=*- 3212 

[ THEN GOSUB 130:GOT0 2000: 

REM DEMO 

120 POKE A+l,li:l=l+l :J=J+B:NEXT 3660 

: GOSUB 1 30: GOTO 111) 
131) HEAD AS: IF ASOJ THEN PRINT 5801 

"FEIL I DATASETN 1NG :" PEEK 

{ 63) + PEEK (64)*2 56:END 
140 J=0: RETURN 808 
150 DATA 76,98, 3,76, 144,1, 120, 5464 

169,85, 141 ,20,3, 169,3, 141 , 

21, 1272 

160 DATA 3,88,96,48.48.48,48,48. 5758 
48, 198,251, 208, 6, 198,252, 
20fi, 1798 

170 DATA 2,198.251,76,49,234, 6696 

120,162,2,181.551,149,99, 

202, 16.249, 2241 
180 DATA 160.0,132,98,132,94, 7262 

136, 132. Ill, 160, 6, 132, 93, 

160,36,32, 1616 
190 DATA 104,190,160.5,185,255, 7127 

0,153,79,3, 136, 16,247, 169, 

255, 160, 2117 
200 DATA 0.76,30,171,120,169,49. 6490 

141,20,3.169,234,141,21,3, ' 

88, 1435 

210 DATA 96,-1 , 96 1027 
220 REM DEMO 
2000 SYS 831 :KEM SUA AV KLOKKE 774 
2010 SEi:=6:MIN=2:HO*2:TALL=SEC* 5501 
60+M1N*60"2 + HO*60"1:REM Til) 
1 60 DELS SEKUND 
2020 T1=INT (TA/65535):T2=INT 7065 
( (TA-Ti*65535)/256) :T3=TA- 
TI*65535-T2*256 



2030 POKE r 251,Tl:POKE 252,T2tPOKE 3298 

2035 SYs'834:REM START NEDTELUNG 798 
AV KLOKKA 

2040 SYS 828:PRINT :REM SKRIV I'T 1059 
KLOKKA I MASKINKODE 

2050 T$= m, :FOR [=0 TO 5:T$=TS' I ... 

CHRS ( PEEK (847+l)):NEXT : 
PRINT TS : REM LEGG KLOKKE I T 

LISTNING 2 

10 A=40960:COSUB 30:A=57344: 1447 

GOSUB 30: POKE 1,53 
20 POKE 59993, 234:POKE 59992,7: 3833 

POKE 59991, 162:END 
30 FOR t"0 TO 8191:P0KE A+I, 2469 

PEEK (A+I):NEXT : RETURN 

LISTNING 3 

100 POKE 2040,13:POKE 53243,100: 5586 
POKE 53249, 100:POKE 53269,1: 
POKE 53287,1 

1 10 FOR 1=0 TO 62: POKE 64*1 3+1. 2838 
25 5: NEXT 

120 JOY=PEEK C56320):X*PEEK 2922 

(5 3248);Y=PEEK (53249) 
130 IF (JOY AND l)=0 AND Y 0 3279 

THEN POKE 53249, Y-l 
140 TF (JOY AND 2)=0 AND Y--255 3308 

THEN POKE 53249, Y+l 
150 IF (JOY AND 4)=0 AND X->0 3128 

THEN POKE 53248, X- 1 
160 IF (JOY AND 8)=0 AND X<255 3109 

THEN POKE 53248,X+1 
170 IF (JOY AND 16 M> THEN END 1282 
180 GOTO 120 564 



RUN-INDEX 

10 DIM AS(400,5):DIM AA$(400): 
POKE 53281. 6:P0KE 53280, 6:Z= 
I :FL=0 

15 FOR QX=520O0 TO 52061 :READ 

SD:POKE QX,SD:NEXT QX 
20 PKINT "[CLR,3D0WN.5R1CHT| 

VELKOMMEN TIL FILE 
-PROGKAMMETl OFF I " : PRINT " 

I 5RIGHT,3DOWN,YEL|VENT 17 

~'SEK. i BLK |" 

24 GOTO 2770 

25 PRINT "[ HOME , 7DOWN, 9K1GHT, 
3 SPACES, 3LEFT] " ; ABS ( VAL 
(TI$)-1?):RETURN 

30 FOR X=l TO 7: READ N$(X):NEXT 
X 

40 PRINT CHRS (147):CLOSE 1;SS= 
I : PR=0 

50 PRINT BES: PRINT "[BLK, 
40CBM Y " 

LAV EN FILE" 



60 PRINT 
70 PRINT 
80 PRINT 
90 PRINT 
100 PRINT 



DOWN 12. SAVE FILE" 
DOWN 3. LOAD FILE" 
DOWN A. VIS FILEN" 
DOWN 5. SOG PAA 
1NDHOLD AF DATA[ 5 SPACES , 
RVS , YEL I 0 1 OFF . BLK 1 =STOP" 
110 PRINT "(DOWNlo. LAV OM PAA 
DATA" 



Til Commodore 64/128 ^ 

5079 150 PRINT "I40CBM Y]' r 8007 
160 PRINT " [ YEL, RVS] V\LG | BLK , 3081 
OFF] EN AF MULIGHEDERNE" 
2747 170 GET KS:IF KS= ,H ' THEN 170 1569 
175 BE5="" 599 
6712 180 IF KS<>"0" THEN GOTO 250 1272 
190 PRINT "[DOWNIER DER 4397 
TILFOJET/ JUST ERE T PAA DATA 
[KVS.YEL|JlOFF,BLKl/|KVS, 
YEL | N [ OFF. BLK| " 
645 195 ES- INPUT KAN IKKE 3155 
4095 GODKENDES" 

200 GET KS:IF KS= I' HEN 200 1465 
210 IF KS="J" THEN 800 1380 
2210 220 IF KS<>"N" THEN PRINT ES: 1545 
GOTO 200 

2456 230 PRINT "1 CLR , 10 DOWN, 1 ORIGHT ] 3405 

TAK FOR NU" : END 
8445 250 IF VAL (KSXO OR VAL (KS)>9 3116 

THEN PRINT ES: PRINT :PRINT : 
1376 GOTO 170 

1821 260 ON VAL (K$) GOTO 280.800, 4716 
1620 1100,2270.1570,1950,2650, 
1767 1280, 1400 

3387 270 GOTO 170 584 
280 REM ** GR\NSER FOR INPUT ** 
290 NF=1 ;X=0:Y=O:RS="GR\NSEN ER 4794 

1867 4O0! ,, :CS="CR\NSEN ER 4!" 

300 PRINT CHKS (147); PRINT TAB ( 4788 



370 Y=VAL CASCR.O) 
3S0 PRINT 
390 IF Y<1 OR Y>400 THEN PR I NT 

RS : PRINT : PRINT :GOT0 340 
400 PRINT "| 2DOWN,2RIGHT|HVOR 
MANGE K0L0NNER?" :TAB< 25 ) ; 
410 GOSUB 2210 

420 PRINT 

421 X=VAL (AS(R.O) 

422 CC=X:L1=0:L2=8:L3=8:L4=8 

423 IF X»2 THEN Tl=32:BLS= M 
|32SPACES]":Li=32 

424 IF X=3 THEN Tl=24 :T2=32 : BLS= 
"[24SPACES)":L1=24 

425 IF X»4 THEN Tl=16 :T2=24 :T3= 
32:BLS="( 16SPACES] "s 11=16 

430 IF 1N=1 THEN RETURN 
440 PRINT 

450 IF >:<1 OR X>4 THEN PRINT CS : 

PRINT ; PR I NT ;GOT0 400 
460 PRINT M [CLRl":M=l 
470 PRINT M GIV EN TITEL TIL 

K0L0NNE:";M;TAB(25): 
480 GOSUB 2210 
490 PRINT :PRINT 
500 CI$<M)=AS(R,C) 
510 TlS-ClS(l) 
520 IF M=X THEN 550 
530 M=M+1 
540 GOTO 470 

550 REM ** INPUT HELE DATA L1STE 



N ** 
560 PRINT 
570 PRINT 
580 PRINT 



CLR | 

39CBM Y|" 
5SPACES JPAABEGYND 
INDTASTN1NGEN ;AF DATA" , 
590 PRINT "| DOWN, 4 SPACES lTRYK 
I RVS , YEL ] RETURN I BLK , OFF I 
EFTER HVERT TAL/NAVN [ DOWN | " 
600 PRINT M | 39CBM Y ) 
610 WS="iRVS]ADVARSEL|OFFl : DATA 

ACCEPTERET, MEN UBEKVEM" 
620 TRS="INDL\S " 
625 IF NF=1 THEN NF=0:Z=1 
630 FOR R=Z TO Y 
640 FOR C=J TO X 
650 IF COl THEN 700 

660 PRINT IKS:C1S(C);TAB(25) ; 

670 GOSUB 2210 
680 PRINT 
690 GOTO 750 

700 PRINT -.PRINT IKS :C 1 S(C) :TAB ( 

25): 
710 GOSUB 2210 
720 PRINT 

730 IF LEN (A$(R,C)K7 THEN 750 
740 PRINT : PR I NT W$ 
750 NEXT 
760 PRINT 
DAT-A 
BLK I 
770 PRINT 
780 NEXT 
790 Z=R:COTO 40 

800 Z-1:SS=0:REM ** SAVE FILE ** 
810 REM ** LOADE FILE ** 
820 PRINT M |CLR|":T»2:SA=1 
830 IF SS=0 THEN BKS=" [ 7LEFT 1 

J RVS, YEL IS AVE S[OFF,BLK| 

840 PRINT "ICLK,2D0WNjHVILKEN 

FILE SKAL 1 BRl'G ; BKS;"? 

(2DOWN]":NN=VAL <N$) 
850 FOR 1=1 TO 7:PR1NT I ; " | LEFT | 
. ";N$(1):PR1NT :NEXT 



:PK1NT "1KKE FLERE 
SAA I RVS, YEL £l OFF, 



[39CBM ty 



896 I FILE ;NN 

133 880 PRINT "(D0WN)V\LG ET I RVS. 
2483 YEL 1 NUMMER [ BLK, OFF ] " ;NN ; 

I4LEFT1"; 
3995 890 INPUT NS 

900 IF N$="0" THEN 40 
581 910 IF SS=i THEM FI$=N$*-" , S , R" : 
153 RETURN 

895 920 PRINT "ER DET SIKKERT DU VIL 
2765 | YEL, KVS I SAVE! BLK, OFF I J/N 

3646 [ 2S PACES ) J [ 3 LEFT 1 " ; : INPUT 

SIS 

3894 930 IF SlSO"J" THEN 40 

940 FI$= M t?: n -*-NS+",S,W":SS=l 
4461 950 SA=0:OPEN 2,8,2, FIS 
960 PRINT#2 t V 
917 970 PRINT#2,X 
153 980 FOR R=l TO Y 
2055 990 FOR C=l TO X 

iOOO PHINT#2 ? ASU,C) 
972 1010 IF AS(R,C)=-" " THEN 2=R:GOTO 
4056 1040 

1020 NEXT C 
581 1U30 NEXT R 
371 1040 FOR H=l TO X 
1330 1050 PRINT#2,C1S(H> 
725 1060 NEXT H 
1078 1070 EIS=N$;CL0SE 2 
335 1080 PRINT "I 2DOWN]DATA ER NU PAA 
590 DISK" 

1090 KO=l:G0T0 2510 
1100 PRINT " | CLR, DOWN |": REM ** IN 
316 DL\S DISK" 

782$ 1110 SS=I:IN=1;BRS="":C0SUB 840 
2820 1115 IF EI$=N$ AND US=l THEN 
RETURN 

4038 1117 IF EI$=NS AND US«2 THEN 
RETURN 
1120 OPEN 2, 8, 2, FIS 
7828 1130 INPUT*2.Y$:TNPUT42,XS 
3802 1140 Y=VAL <Y$):X=VAL tXS) 

3 145 GOSUB 422;IN=0 
1158 3150 FOR U=l TO Y 
1711 3 160 FOR C=l TO X 
822 1170 lNPUT#2,A$(R f G) 
687 1173 K15=AS(R,1):K2S=AS(R,2);K3S= 
1 160 AS(R,3):K4S=AS(R,4j 
1749 1175 IF C=SU THEN AAS(R)=A$(R. 
£gl SU):GOTO 1389 

153 1176 IF USOl THEN 1189 
588 1180 AA$<K) S K1$+LEFT$ (BLS.Ll-LEN 
2165 (K1S)) 

1182 AA$(U)-AAS(R)+K2S+LEFTS 
581 (BLS,L2-LEN (K2S)) 

153 1 183 IF CC=2 THEN 1189 
1921 1184 AAS(R)=AA$<R)+K3S+LEFTS 
623 ( BLS , L3-LEN (K3$l) 

130 1165 IF CC=3 THEN 1189 
2380 1186 AA$(R)=AAS<R)+K4S+LEFTS 
(BLS.L4-LEN (Ki$)) 
1189 IF AS(R,C)=" ~'\ THEN Z=R:GOTO 
7828 1210 V^'T: 

130 1 190 NEXT C <- 
771 1200 NEXT R 
1009 1210 FOR H=l TO X 

1220 INPUTS, C1£(H) 
1211 1230 NEXT H 
3924 1240 EIS-N$;CL08E 2 

1250 BE5="[2D0WN,5RIGHTl F1LEN ER 
1NDL\ST 1 CBM 64" 
4408 1260 IF FL=1 THEN 550 

1265 IF U5-1 THEN RETl'RN 
1267 IF US=2 THEN RETURN 
3212 1368 IF PR-1 THEN RETURN 
1270 GOTO 40 



4322 



433 
1123 
2533 

4762 



1111 

2422 
1703 
630 
622 
749 
687 
828 
2277 

264 
294 
697 
692 
274 
1140 
2242 

1223 
54.0 

2126 

1736 

1744 

1083 
1169 
1278 
1078 
749 
687 
808 
4791 

2845 

1382 
2609 

3040 

1112 
3.234 

1128 
2918 

2245 

264 
294 
697 
672 
274 
1 140 
34 36 

1019 
*>61 
977 
947 
433 




1280 REM ** SORTERING 
1285 US* I: PRINT " [CLR,6D0WN]ER 

ALLE DATA (RVS, YEL ]S AVE 

T|OFF,BLK] EFTEIi 

INDTASTNING" 
I2B6 PRINT "[2DOWN f 9RIGHTlHVIS 

JA, SAA TAST ! RVS, YEL J 
lOFF.BLK] 1 ' 
1238 GET KS:IF KS="" THEN 1288 
1289 [F K$<>"J" THEN 800 
1298 GOSUB It 00 
1360 SU-1:AAS*CIS(I) 

1372 PRINT "(CLR. 3DOWN, 2R1CHT , 
YEL i " «N5 : " I BLK I INDL\SE3 

IG£N rt :C6SUB 910:GOSUB 1120 

1373 PRINT TAB (2 50) ; "SORTERINGEN 

FOREGAAR" 
1 37 ^ N=Y-1:SYS 49 152 ,N, AAS ( 1 ) : IK 

PR=1 THEN RETURN 
1380 K0=l:GOT0 2270 

1400 HEM ** PRINT RUT I N E ** 

1401 IF CC=2 THEN T1S=CHR$ (16) + 
"0l 1, :T2$=CHR$ ( t6)+"32": GOTO 
1404 

1402 IF CC=3 THEN Tl S=CHRS (16) + 

f, or:T2$=CHR$ ( 16)+"24":T3$= 
CURS ( 16)+"32":C0T0 1404 

1403 T1S-CHRS ( t6)+"01 M :T2S-CHR$ 
(16)+"16":T3$=CHR$ C l6) + "24" 
:T4$=CHRS (16)+"32" 

1404 IF US- I THEN RETURN 

1405 OPEN 4,4:PR=l 

1406 PRINT * ! |CLR,3DOWN|ER FILEN 

ALLEREDE 1 CBM64? [ RVS, YEL I 
J/N I OFF,BLK] " 

1407 GET ICS : IF K$="" THEN 1407 

1408 IF K$<>"J" AND KSO"N" THEN 
140 7 

1410 IF KS="N" THEN PR=l:GOSl)B 
1100 

1412 PRINT "[DOWN | DEN OPKINUEL1GE 

[RVS,YEL|OlOFF,BLK| EL. 
SORTE REDE [ RVS t YEL ] S (OFF , 
BLK] L ISTE" 

1413 GET K$:IF K$="" THEN 141 3 

1414 IF KSO'^" AND KSO"S 1 ' THEN 
14 I 3 

1415 IF K$="S" THEN 1500 
1420 PRINT#4,TI.S;C1S(1 ): 
1422 PRINTS, T2$:C1S(2): 
1424 PRINT#4,T3$;C15(3) ; 

1426 PRINT#4,T4$;C1S(4) 

1427 PR1NT#4,CHRS (13) 

1428 FOR R=l TO Y-l 

1429 FOR C=l TO X 

1430 TF C»l THEN PRINT#4,T1$: 
A$(R,C); 

1431 IF C=2 THEN PRtNT#4,T2Si 
A$(R,C): 

1432 IF C=3 THEN PRiNT#4,T3$; 
A$CR,C); 

1433 IF 0=4 THEN PRINT#4,T4$: 
AS(R.C) 

1435 NEXT C - 

1440 PRINT#4:NEXT R 

1460 PRINTM,CHR$ (27):CHR$ (10); 

CURS ( 144 ) 
1470 PR1NT#4:CL0SE 4:PR1NT " 

(3D0WN]UDSKR1FT F\RDIG": 

GOSUB 2510:GOT0 40 
15O0 l'S=!:GOSUB 1298:G0SUB 1401 
1510 PRINT#4,TI$;C1$(!3; 
1512 PRINTS, T2$;C1$<2): 
1514 PRINT#4.T3$;C1$(3) ; 

1516 PRINT#4,T4S:C1S(4) 

1517 PRINTS, CHR$ (13) 
L 520 FOR R-l TO Y-l 
1530 PRINT#4,AA$(R):NEXT R 
1540 11S=0:GOTO 1460 



5736 



3718 



1504 
1448 
567 
1676 
4672 



2907 
3323 



1545 
17 79 
1803 
1827 
1748 
1014 
1135 
687 
2093 

2103 

2113 

1906 

264 
545 
2672 

362 1 



1857 
1779 
1803 
1827 
1748 
1014 
1 I 35 
958 
1046 



1570 
1580 
1590 
1600 
1610 



1620 
1630 

1640 
1650 
1660 
1670 
1680 
1690 
1700 



REM ** V\LG DATA ** 
GOSUB 1600 
KO-l :G0T0 2510 
REM #* UNDERSOG DATA ** 
PRINT "(CLR, DOWN )":M2=0:US= 
2:G0SUb 1 100:US=0:PRINT " 
|CLR]":C0SUB 2580 
PRINT "I2DOWN1" 
PRINT "INDTAST DEN ONSKEDE 

KOLONNE "; 
J=0:Zl=O:K=0 
GOSUB 2210 

F$=AS(R,C) :PR1NT :M$=F$ 
FOR M=l TO X 

IF FS=C1S(M) THEN Q=M:J=1 
NEXT 

IF J=0 THEN PRINT :PRINT 
"KOLONNEN FINDES IKKE [ RIGHT I 
":PRINT :GOTO 1620 



1930 
1940 



G=l 



GOSUB 2510 :IF M2-1 THEN 
RETURN 
1945 GOTO 40 . 

1950 REM ** LAV OM PAA DATA ** 

1960 M2=l :Q=1 

1970 PRINT "ICLRl" 

1980 PRINT "DE N\VNTE DATA 

REFERERER TIL:" 
1990 PRINT "KOLONNEN ":C1S(1) 
2000 PRINT M [ 9S PACES, 1 1 CBM Y|" 
2010 GOSUB 1710 
2020 PRINT 

2030 IF DlOO THEN 2060 
2040 PRINT 
2050 KO-l :G0T0 2510 
2060 PRINT "(DOWN] FLERE 

MUL1GHEDER I RETTE-KO LONNEN 

J/N?" 

2070 PRINT " t DOWN]TILBAGE TIL 
MEN U SAA [RVS, YEL]0|0FF, 
BLK] " 

2080 GET KS:IF K$="" THEN 2080 
2090 IF KS^'O" THEN 40 
2100 IF KS="J" THEN GOSUB 1620 
2110 PRINT "(3SPACES,2D0WN| 

FORTS \T MED AT RETTE DATA" 
2120 PRINT 
2130 FOR C-l TO X 
2140 PRINT IRS;" ":C1S(C): 

" ":TAB{20) 

2150 GOSUB 2210 



587 
!223 

4196 



459 
2856 

1514 
581 

1752 
707 

1813 
130 

4439 



1100 


1710 


PRINT "[DOWN] INDTAST 
SOGEDATA. . ."; 


2858 


4014 


1720 


Zl=0:K=0 


983 




1730 


GOSUB 2210 


581 




1740 


PRINT :D1=0 


472 


5812 


17 50 


PRINT "|CLR]":PRINT TAB(120) 


1 224 




1760 


GOSUB 2580 


649 




1770 


RS=A$( R , C ) : L=LEN (RS) 


1418 


5630 


1780 


FOR R=l TO Y-l 


1 135 




1790 


Zl=0 :DD=0 


972 




1800 


FOR C=l TO X 


687 


961 


1810 


U$=A$(R,Q> :W=LEN (U$)-L+l 


2132 


1059 


1820 


FOR 1=1 TO W 


922 


3815 


1830 


ZS=MIDS (U$,l,L) 


1064 




1835 


IF Z$=R$ AND DD=0 THEN PRINT 
AS ( R . C ) : 


2129 


1726 


1840 


IF Z$=RS THEN DD=1 :Z1 = I :RI = 


3974 


24 50 




R:D1=1 :G0TO 2430 






1850 


NEXT 


130 


2459 


1860 


NEXT 


130 




1870 


IF Z 1=0 THEN 1890 


1 168 


5340 


1880 


PRINT 


153 




1890 


NEXT 


130 




1900 


PRINT " [ 40CBM Y] " 


8007 




1910 


PRINT 


153 


1757 


1920 


IF D1=0 THEN PRINT " 


4848 


2524 




[ 3S PACES , RVS I SOGEDATA FINDES 
IKKE I DENNE FILE[OFF|" 





368 
1696 

433 

1045 
316 
2620 

2052 
2828 
599 
153 
1267 
153 
1223 
4478 



2994 



1478 
1117 
1639 
2799 




2160 LS=AS(R,C) 
2170 AS(R1,C)=LS 
2180 PR I NT : PRINT 
2190 NEXT 

220G AS(R ( 1)=" ":GOTO AO 

2210 REM ** SIKKEk INPUT-RUTINE * 

2220 OPEN 1,0; PRINT ; 

2230 INPUT#1 ,A$<R,C) 

2232 IF VAL ( A$( R. 1 ) ) >L1 OR VAL 

(A$(R,2))>L2 THEN PRINT 

"FEJL*;GOTO 2230 
2234 IF VAL { A$( R , 3 ) ) -L3 OR VAL 

(AS(R,4))>L4THEN PRINT 

"FEJL":GOTO 2230 
2240 IF A$(R,C)=" " THEN Z«R:Y*R: 

CLOSE 1 :GOTO~40 
2250 CLOSE ! 

22 60 RETURN 

2270 REM ** FILE PRINT ** 

2280 TL=1 :K=1 : PRINT " | CLR ] " : PRINT 
"DOWN, RIGHT I LIST BAGFRA 
RVS, YEL B[ OFF, BLK 1 FORFRA 
KVS, YEL F|GFF,BLKl LINJE 
RVS - YEL NR. I OFF T BLK J' 5 

2290 INPUT K5 

2J00 IF K$= M B" THEN K=0 

2310 TL=VAL (K5) 

23 15 IF PR=1 THEN GOSUB 1 5 20: GOTO 

2330 
2320 GOSUB 25&0 
2330 S=l :V=1 
2340 IF K=l THEN 2370 
2350* FOR R*Y-1 TO 1 STEP -! 
2360 GOTO 2373 
2370 FOR R=TL TO Y-l 
2373 KO-0:IF US=1 AND SU=1 THEN 

PRINT AA&(R);:GOSUB 2460: 

NEXT R:KO=l:G0T0 2300 
2380 FOR C=l TO X_- 
2390 IF A$(R,C)=" " THEN GOSUB 

2510:RETURN Z 
2400 IF C>1 THEN 2423 
2410 PRINT A$(R,C): 
2420 GOTO 2433 
2423 K0=0 

2425 IF US=1 AND C=SU THEN PRINT 
TAB ( 0+8*SU )AA5 ( R) : GOSUB 
2460:NEXT R : GOTO 2500 

2430 IF CC=4 AND CM THEN PRINT 

TAB(0+8*C)AS(R,C>: :GOTO 2435 

24-31 IF CC=2 AND C«2 THEN PRINT 
TAB(32)AS(R,C): :GOTO 2435 

24-32 IK CC=3 AND C=2 THEN PRINT 
TAB(24)A$(R,G); :GOTO 2435 

2433 IF CC=3 AND C=3 THEN PRINT 
TAB<32)A5(R,C); 

2435 NEXT 

2445 IF DD=1 THEN KO=0:GOTO I860 
2450 PRINT 

2460 IF S=12 THEN S=!:G0SUB 2510 
2480 S=S+J 

2484 IF PR=1 THEN RETURN 

2485 IF US=l THEN RETURN 
2490 NEXT 

2500 K0=1:IF US=l THEN US=0 

2505 GOSUB 2510 

2506 GOTO 40 

2510 REM ** TRYK *J 
2520 PRINT : PRINT "LYEL.RVS TAST 
(OFF, BLK 1 HV1S KLAR - |RVS, 
YEL 1 N [ BLK, OFF] FOR NY - 
I RVS YEL] K[ BLK, OFF | HV 1 S 
KOPT' 

2530 GET K$:IF KS="" THEN 2530 
2535 REM IF PR=1THENCL0SE4 
2540 IF KS="N" THEN 40 
2550 IF K$-"K" THEN 2710 
2555 IF KS""J" THEN PRINT DEN 



982 
806 
3951 



3906 



3107 

258 
142 



2556 
2557 
2560 



2565 
2570 
2580 
2590 
2600 

2610 
2620 
2650 



6210 2660 



427 
1403 

876 
2216 

649 
852 
1227 
1566 
677 
1349 
4947 



687 
2478 

889 
1077 
681 
564 
4112 



3175 

2918 

2982 

2225 

130 
1854 
153 
1721 
365 
947 
961 
130 
1857 
593 
433 

4530 



1653 

1312 
1553 
5917 



2670 
2680 

2690 
2700 
2710 
2720 



2770 

2780 
2785 

2790 

2800 

2810 
2812 

2813 

2814 

2815 

2820 
2830 
2840 
2850 
2860 
2870 
2880 
2890 
2900 
2910 
2920 
2930 
2940 
2950 
2960 
2970 
2980 
2990 
3O0O 
3010 
3020 
3030 
304 0 
3050 
3060 
3070 
3080 



SORTEREDE L RVS, YEL |S|0FF, 
BLK 1 - DEN 0PR1NDELIGE I RVS, 
YEL|O[BLK,OFF|":G0TO 2 530 
IF KS="S" THEM US=1 :G0SUB 
2270 

IF KS="0" THEN US"0:GOSUB 
2270 

IF K0=1 THEN K0=0: PRINT "VIL 
DU SE LISTEN 1GEN [RVS, YEL | 
J |BLK,0FFl":G0T0 2530 
IF KS=" " THEN RETURN 
GOTO 25 30 

REM ** TRYK TABEL-HOVED ** 

PRINT " [40CBM Y]" 

PRINT C1S( 1 );TAB(Tl )C1 SC2 ): 

TAB(T2)C15(3) iTAB(T3)ClS(4) 

PRINT [40CBM Y] " 

RETURN 

REM ** T1LF0J DATA TIL FILE 
>v* 

PRINT "lCLR,2D0WN)ER DATA 

ALLEREDE I CBM 647 J/N" 
GET KS:IF K$="" THEN 2670 
IF KS="J" THEN Y=400:GOTO 
550 

FL=1:G0SUB 1100 
GOTO 550 

PRINT "(HOME]"; I SYS 52000 

RESTORE :F0R QX= 52000 TO 

52061 ;KEAD SD;P0KE QX,SD: 

NEXT QX:G0T0 40 

1=49 152 ;SUM=0 ;T1 S="000000"; 

TMS="00O00O" 

READ A: IF A=256 THEN 2800 
IF TM$<TIS THEN TMS^TIS: 
GOSUB 25 

SM=SM+A:POKE 1, A: 1=1+1 :GOTO 
2780 

IF SM045295 THEN PRINT 
"FEJL I DATA" : END 
GOTO 30 

DATA 162,4,169,4, 160,255,32. 
186,255,32,192,255.162,4,32, 

DATA 255,234, 162,3, 169,3, 
160,255,32, 186, 255, 32, 192, 
255, 162 ,3 

DATA 32.198,255. 162,0, 160,0. 

32.207,255,52,210,255,200, 

192,39.208 

DATA 245,232,224,26.208,238, 
32,204.255.32.132,255,96 
DATA 32,253,174,32,158,173 
DATA 32.247,183,165,20.133 
DATA 253,165,21,133,254,32 
DATA 253,174.32,158,173,162 
DATA 1,165.71.157.85,193 
DATA 157,125, 193,165.72,157 
DATA 105,193,157.145.193,165 
DATA 253,208,2,198.254,198 
DATA 253,160,3,24.189.125 
DATA 193,101,253,157,125,193 
DATA 189,145,193,101,254,157 
DATA 145,193. 136.208.236.189 
DATA 85.193.133,80, 189,105 
DATA 193,133.81.189,125,193 
DATA 133,82,189,145,193,133 
DATA 83,32,21,193,144,4 
DATA 202,208,228.96.165,82 
DATA 133,78.165,83. 133,79 
DATA 160, 2, 177. 78, 153, 25U 
DATA 0, 136,16,248,48,1 1 
DATA 24,165,80,105,3,133 
DATA 80.144,2,230,81,160 
DATA 2, 177,80,153,247,0 
DATA 136,16,248,32,32,193 
DATA 144,230,56,165,82.233 
DATA 3,133,82,176,2,196 
DATA 83,32.21,193,176,31 



2315 
2434 
5007 



1 109 
605 

8007 
3877 

8007 
142 



2597 

1797 
2038 

1273 
584 
1 352 

3243 



3751 

1524 
1846 

2901 

2274 

431 
5695 

6241 

6311 

5031 

2400 
2316 
2489 
2540 
2414 
3043 
3041 
2121 
2333 
2953 
2953 
2823 
2240 
2494 
2476 
1869 
2472 
2569 
2532 
2098 
2149 
2000 
21 14 
2351 
2499 
2038 




30«0 DATA 160.2,177.82,153.247 2548 

3100 DATA 0.136,16,548,32,32 2294 

3110 DATA 193, I 76 , 22 5, 160, 2, 1 77 2786 

3120 DATA 80,145,82,185,247,0 2053 

3130 DMA 145,80,136.16,244.48 2182 

3140 DATA 183, 160,2,177,80,145 2420 

3150 DATA 78.185,250,0.145.80 1864 

3160 DATA 136.16,244,24,189,85 2418 

3170 DATA 193,125.125,193, 133,82 2950 

3180 DATA 189,105.193,125,145,193 3083 

3190 DATA 133,83.102,83,102,82 2403 

3200 DATA 32,21,193,176,22,189 2261 

3210 DATA 85,193,157,86,193,189 2442 

3220 DATA 105.193*157,106,193.32 2822 

3230 DATA 53,193.232,32,69,193 2023 

3240 DATA 76,71,192.189.125.193 2391 

3250 DATA 157,126,193,189,145,193 2932 

3260 DATA 15?. 146, 193, 32,69, 193 2609 



3270 
3280 
3290 
3300 
3310 
3320 
3330 
3340 
3350 
3360 
3370 
3380 
3390 



3400 
34 ll> 



DATA 232,32,53,193.76.71 
DATA 192.165,81,197,83,208 
DATA 4, 165,80, 197,82,96 
DATA 160,255, 200. 19(3.247, L76 
DATA 11, 196,250. 176, 6, 1 77 
DATA 243,209,251.240.241,96 
DATA 196,250,96.24.165.80 
DATA 103,3,157.85,193.165 
DATA 81 ,105,0,157,105,193 
DATA 96,56, 165,80.233.3 
DATA 157,125,193, 165, 81, 23J 
DATA 0,157. 145,193,96,256 
DATA CBM 64, VIC 20 . COMMODORE 

1 28, BASIC PROGRAMMER 

GE.NERELT 
DATA MASKINKODE PROGRAMMER 

GENERELT, RUN INDEX 
DATA OMTALER I TIDSSKRIFTER 



2420 
2352 
2046 

2x:z 

12 38 
2721 
2334 
2624 
2098 
2303 
2992 
2513 
4632 



3848 
1878 



BOOT-MAKER Til Commodore 128 



1 


REM 


vV*****- 


•i-fti- ** * * ** * * * Hi * * 




***** 


****** 




2 


REM 


* 












* 




i 


REM 






0 T/M 0 D E - M 




A K 


E R 








REM 




* 




5 


REM 






FOR COMMODORE C 




128 




* 




6 


REM 


* 












* 




7 


REM 


* 




(GRAFIK MODE 




) 




* 




8 


REM 




* 




9 


REM 






UDC1VET I RUN 1 




986 








10 


REM 








1 1 


REM * 




(HENNING RANDMOSE 




) 


* 






12 


REM * 



















13 REM 

** * ***** * 

14 REM 

15 COLOR l,l:COLOR 0,8:COLOR 4, 

16 GRAPHIC 1,1 

17 RENAME "BILLED" TO "bILLED" 

18 ES=LEFT$ (DSS,2) 

19 IF ES<>"63" THEN GOSUB 61: 
ELSE (ASC254,DOWNr , FARVER*' t 
DO : | ASC2 54, DOWN I "BILLED" , DO 

20 CLR :COTO 52 

2-1 51$=" IL[G DISK OER SKAL 
BOOTES" 

22 S2S=" I2SPACES IMELLEKRUMSTAST 

- START|2SPACES]":COSUB 81 

23 DO :GET KEY AS: LOOP UNTIL 
AS=" M :GOSUB 84 

24 RETURN 

25 SIS*" [NDTAST BOOTING BESKED 

I 2SPACES ]": S2$="" :GOSUB 81 

26 DN$="":GOSUB 88:DN$=W$ 

27 GOSUB 84;S1S="B00T BASIC=l, 

BOOT ML=2, " 

28 S2S="SKIFT TIL 64 M0DE=3 
( 6 SPACES 1 " : GOS UB 81 

29 GET KEY AS 

30 IF AS="I" THEN ML=0: GOSUB 

84:G0T0 33 

2" THEN ML=1 : GOSUB 84 
3" THEN ML=2: GOSUB 
GOTO 2 9 



1784 


45 


633 


46 


1707 


47 


1217 


48 


37 66 






49 




50 


514 




2876 






- 51 


3061 


52 




53 


2443 


54 




55 


142 


56 


37 67 


57 


2132 


58 


3269 






59 


3442 


60 


442 




2355 






61 


1961 


62 


2560 






63 



33 GOSUB 84;S1S="PRG.NAVN7 64- 
MODE^MLM+C/R": S2S="" : GOSUB 
81 

34 NMS="":GOSUB 88:NM$=WS:IF 
LEN (NM$)=0 THEN 34 

35 GOSUB 84: CHAR 1,7.6," 
[3SPACES|SKRIVER 

AUTOBOOT I3SPACES| M , 1 

36 IF A$<>"3" THEN GOTO 38 

37 ML$="CBM"+CHR$ (0)+CHRS (0) + 
CHRS (OJ + CHRS (O + CHRS (0)+ 
CHRS (0)+CHRS (120)+CHRS 

( 169 J + CHRS (I79HCHRS (133) + 
CHRS (D + CHRS C76)+CHRS 
(75J+CHR5 (226):GOTO 39 

38 ML$="CBM"+CHRS (0)+CHR$ (0) + 
CHRS (0)+CHRS (01+DNS+CHRS 
(0>+CHR$ (OJ+CHRS (162) 

39 AD=2816+LEN (DNSJ+15 

40 ML$=ML$+CHRS (AD AND 255 ) + 
CHRS ( l60)+CHRS (AD/256)* 
CHRS (76)+CHR$ (165) 

41 ml5=mls*c:;rs (175) 

42 if ml=0 then mls=hls+"run" 

43 if ml=1 then mls=hls+"boot" 

44 mls=mls+chrs ( 34 hnms+chrs 

(0) 

OPEN 1.8,15:OPEN 2,8,2,"#": 
GOSUB 50 



50 



PRINT DSS:CLOSE 
COLOR 5,12:END 



f: CLOSE 1: 



UFfcN i n:nm i = u iu zu: 
PR1NT#1,"B-A:"0; 1 ;T:NEXT 
IF DS=65 THEN GOSUB 81:G0TC 
60 

IF DS>0 THEN PRINT DSS 
CLOSE l:S15="F[ RDIG!":S2S= 
"TRYK EN TAST FOR SLUT": 
GOSUB 84: GOSUB 81: GET KEY 
AS:GRAPHIC 0. 1 : END 
I ASC254]2:GRAPHIC 1,1 
CHAR 1. 12,2,"B00T/M0DE 
MAKER" 



5397 

3408 
3585 



1469 
10888 



4588 



1827 
5425 



1745 
1852 
1818 
2410 

2416 

1265 
1068 
2154 

750 
3302 



142 
542 
690 
437 
453 
883 
3557 

1764 

1031 
6701 



1034 
2583 

642 



64 BOX 1,40/32,280,186 1 795 

65 CIRCLE 1,160, 105,32,25 1850 

66 CIRCLE 1,160,150.8,5,270,90 2350 

67 DRAW 1,152,150 TO 152,170 1855 

68 DRAW 1,168,150 TO 168.170 1761 . 

69 CIRCLE 1,160,170,8,5,90,270 2476 S6 

70 CIRCLE 1,195,125,5,4 1942 

71 BOX 1,276,63,280,70 1892 87 
7 2 DRAW 0,280,64 TO 280,69 17 72 88 

73 COLOR 1,7 690 89 

74 BOX 1,56.40,264,71,.! 2122 90 
7 5 COLOR 1,1 642 91 

76 PAINT I ,45,40 911 92 

77 [ASC254J& 330 

78 [ASC254.CTRL P] "BILLED", BO, 2849 
D0.P8192 TO P16I91 93 

79 [ ASC254 .CTRL Pj "FARVER", BO, 2665 94 
D0.P7168 TO P8191 95 

80 RETURN 142 96 

81 CHAR 1,7,5, SIS, 1 1657 97 

82 CHAR l,7,7,S2S,l 1722 

83 RETURN 142 98 



COLOR I,7:U1AR 1,7,5," 
l26Sfc>ACESr\l:REM *6 MlilLLEMR 
UM 

CHAR l,7,6,"|26SPACESrM; 
REM 26 MELLEMRUM 

CHAR 1,7,7,"[26SPACES|",1j 2319 
REM 26 MELLEMRUM 

RETURN 142 
CT=0:XP=7:TXS="":WS="" 2227 
GET KEY TXS 745 
A=ASC (TXS) 495 
TF A=13 THEN RETURN 1066 
IF A=20 AND LEN (WS)>0 THEN 4804 
WS=LEFTS (WS,LEN (WS)-l ): 
TXS=" ":GOTO 97 

IF A=20 THEN 89 1033 
IF A$=CHRS (34) THEN 89 1466 
IF LEN (WS)>=I6 THEN 89 1575 
XP=XP+1:WS«WS+TXS 1638 
CHAR !,XP,7.TXS,I:IF A=20 3287 
THEN XP=XP-1 

GOTO 89 477 




COMAL. SKOLE 



0010 // 
1- 1986 

0020 /7 

0030 // 

004 0 // 

0050 // 

0060 DIM 



Comal skole 5, RUN nr 
af Henning Randmose 
sekventLel data - base 



strengS OF 125, 
s\gestrengS OF 25, al$(75) OF 
25, a2SC 75 ) OF 25 
0070 DIM a3S( 75 ) OF 25, 
a4$(7S) OF 25. a5$(75) OF 25 
0080 q;=0 //tiller til poster 
0090 

0 100 LOOP 

0110 PAGE 

0120 PRINT 

TAB ( I 1 ), H,, t8"SekventLel 

DATA-BASE" 

01 30 IF q<=0 THEN 

0140 PRINT ,, "18"lntet 

kartotek tilstede, s] hent/lav 

et . " 

0150 ELSE 

0160 t PK INT M " I 8"niax . 75 

poster, indehqlder 



nu" ;q 
01 70 

0 180 
0190 
0200 

1 "146" 

(opstart-disk 



poster 
ENDIF 
GURSOR 3, 1 
s t r eg 

PRINT AT 5,5: ' 
I 1 g bjnd/disk 



// print tab<5),""l 
se bibliotek (kun 



0210 
2 M 146" 
disk)' 1 
0220 
3"146" 
0230 
4"U6" 

kar to tek 
0240 // 
5"146' r sort 
0250 
6"146" 
0260 
7"146" 
sk| rm" 
0270 

8" 146" 

printer 
0280 PRINT TAB ( 5 ) . " M l 
9"146" gem kartotek* 



'11 



PRINT TAB(5), M "18 H 
hente kartotek" 
PKINT TAB(5 ), M "1 8" 
op ( r e tte/ t i 1 f \ j e i 

print tab(5),""l 
_ tere kartotek" 
// print tab(5).""l8" 
s\ge i kartotek" 
PRINT TAB ( 5 >, ""I 8" 
udskrive kartotek p) 

// print tab(5),""l8" 
udskrive kartotek p] 



02 9 0 
tab(5) 

DOS t " 

0 30 0 
tab<5> 
post" 
)31 0 



MA 



" 1 0" 146" 

irint 
"I I "146 



tidskift en 



s It? t 



PRINT 
TAB(5),""18"12"146" 
brug af kartotek" 
0320 PRINT 
0330 streg 
0340 INPUT AT 23,1, 
""18"tast taL for val 
va lg 



a ts . 



, 146 M 



CASE valg 
WHEN I 

lagerva lg 



OF 



i 

WHEN 



0350 

03 6 0 
O370 
0380 
0390 
0400 
041 0 
0420 
0430 
0440 
0450 
U460 

04 7 0 
0480 
0490 
0500 
051 0 
0520 

05 30 
0540 

05 50 
0560 
0570 
0580 

0590 
0600 
061 0 
0620 

06 3 0 

" u i o v i i 

064 0 
06 5 0 
066 0 
0670 

0680 PROC streg CLOSED 
0690 FOR if : = 1 TO 40 
PRINT CHRSC96 ) , 
0700 END PROC streg 



when 

P*&* 
d u 
j>ause 

h e n t 'kartotek 
WHEN 4 

skriv 'kartotek 
// WHEN 5 
// sorter 
// WHEN 6 
/ / s \g 
WHEN 7 

udskriv'p ] *sk[ rm 
// when 8 

// udskriv'pl 'printer 
WHEN 9 

gem'karto tek 



i 

WHEN 



h e n _ 10 
udskift'post 
when 1 1 
s 1 e c 'post 
1 2 
a Fs 1 u t 
OTHERW I SE 

PRINT AT 12, 10: 
,g indtastning 

pause 
END CASE 
ENDL00P 



DO 




0710 
0720 
07 30 
tast 
0740 
NULL 
0750 
0 7 60 
0 7 70 
0 7 80 
0 79O 



PROG pause CLOSED 

PRINT AT 24 , 5 : " try k en 
for ac g 1 v i dere " 

WHILE KEY$=""0"" DO 
ENDPROC pause 



PROC lagervalg CLOSED 
PACE 

PRINT AT 8.3: 
""18"Hvi lken lagringsenhed 
\nskes brugt?" 
0800 PRTNT.AT 10,3: "I 
diskeCtesta tion" 
0810 PRINT AT 12,3: "2 
datasette" 

0820 INPUT AT 14,3, 1 : 
"indtast tal for valg: " : 
svaret 



0830 

0840 
"cs: ' 
0850 
THEN 
0860 
0870 
0880 
0890 
0900 



IF svaret=i THEN UNIT 

IF svaret=2 THEN UNIT 

IF svaret<I OR svaret>2 
lagervalg 
ENDPROC lagervalg 



HROC hent 'kartotek 
PACE 
PRINT 

TABC 14 ) , 1 8"hGntG ka rtotek" 
0910 streg 
0920 INPUT AT 15,1: 
"" I8"tast kartoteksnavn: 

indkarto? 
0930 OPEN FILE 
, indkar to$ , READ 

INPUT FILE I : 
FOR i:=l TO q 



1 4 0" 



Q$40 
0950 
0960 
0970 
0980 
0990 
1 000 
1010 
1020 
! 0 10 
I 040 
1050 
1 060 
1070 
1 080 



INPUT FILE 
INPUT FILE 
INPUT FILE 
INPUT F 1LE 
INPUT FILE 
ENDFOR i 
CLOSE FILE 1 
ENDPROC hent *kar totek 




P ROC skriv'kartotek 
check 'p 1 ads 
PACE 

PRINT M "l8"skriv i 
kartotek, max. 25 tegn, nr 
1090 streg 
1 100 PRINT AT 23,14: 
""18"<RETURN> = stop" 
1 110 INPUT AT 6,1: 
' fornavne: ": alS(q) 



INPUT AT 
": a3S(q 



1 120 WHILE a 
1130 INPUT 
"e f t e rn avne : 
1 140 
+ nr . : 
1 I 50 

"pst.nr. 
I 160 
"andet : 
1 1 70 
1 180 
1 1 90 

kartotek. 
12 00 
1210 



AT 8,1 



DO 



1 NPUT 
+ b y : 
T NPUT 



At 
AT 



PAGE 
check 
PR INT 

max * 2 5 
streg 
PRINT AT 



a2$(q) 
L0 , 1 : "gade 

L2. 1 : 

14.1: 
a5S(q) 



p 1 a d s 



1 8"skr iv 
t e gn , nr . 

23,, 1 A: 



""18"<RETURN> = stop' 
1220 INPUT AT 6.1: 

als(q) 



125 0 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
13 3 0 
1340 
1 350 
1360 



ENDPROC skriv'kartotek 

PROC udskriv'p] *sk|rui 
FOR i:=l TO q DO 
PAGE 

udskriv'indtiold(i) 

pause 
ENDFOR i 
ENDPROC udskriv'p) 'sklrm 

PROC udskriv'indhold(t) 
PRINT AT 3,1: 
t 



AT 



"kartoteksnuramer 
1370 streg 
1380 PRINT 
" f ornavne : 
1390 PRINT 

"ef ternavne : 
1400 
nr . : 
1410 

+ by 
1420 



AT 

f 

AT 



1430 
1440 
1450 
1460 
1470 



6, 1 : 
,al$<t) 
8.1: 

Wit) 

PRINT AT in I • ». 
",a3S( t) 
PRINT AT 

",a4$(t ) 
PRTNT AT 14,1: 
",a5$( t) 
ENDPROC udskriv'indhold 



12,1 



gade 
"pst.n: 
"andet 



• em 'kartotek 



kartotek" 



PROC 
PACE 
PRINT 
TAB(15),'"M8"gemTne 
1480 streg 
1490 . PRINT AT 14 , 1: 
""18"indtast navn pi 
kartoteket der skal 
1500 INPUT ""I8"gemmes 
"« udkarto§ 
1510 OPEN FILE 
1 , "@"+udkarto$ , WRITE 

PRINT FILE 1 : STR$( q ) 
FOR i:=l TO q DO 
PRINT FILE I 
PRINT 
PRINT 
PRINT 
PRINT 
ENDFOR i 
CLOSE FILE 1 
ENDPROC gera'kartotek 



146* 



* i v 

1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 



FILE 
FILE 
FILE 
FILE 



a L S( i ) 

a2S i) 
a3$( i ) 
a4S( i j 
a5$( i ) 



PROC afslut 
PAGE 
PRINT 

TAB(10),""18"afslu L for idag' 
1660 streg 

1670 PRINT AT 10 , 1 : . "er du 
sikker. har du gemt dit 
kartotek?" 



1680 
j/n : 
169 0 
1700 
1710 
1720 
1730 
1 740 
1750 
1760 
17 70 
1781) 
1790 
1 800 
1810 



INPUT AT 
": svrS 

IF svrS IN 
PAGE 

END "tak 
ELSE 

gem 'kartotek 
ENDIF 
ENDPROC afslut 



12,1,1: M sv; 
"jj" THEN 
for idag" 



' f or na vne : 
1230 EMUWHTLE 



PROC check'plads 
IF q<75 THEN 

q : + 1 
ELSE 

PRINT "Der er ikke 
lads til flere poster, s|" 

0 PRINT "derfor skal 

nu gemme &>• 
1830 paus e 

1840 gem"kar to cek 

1850 ENDIF 



p l a 
182 



de 



fra side 24 

Det nemmeste er at ga pa post- 
huset og udfylde et gtrokort med dit 
eget navn og adresse, vores navn 
(RUN. Torvegade 52, 1400 Koben- 
havn K) og vort gironummer (1 48 
31 6T). Duskal selvfolgelig ogsa hu- 
ske al skrive prascis, hvad det er. du 
bestiller. 

Du er naturllgvis ogsa vetkom- 
men til at sende en check, hvis det 
passer dig bedre. 

Programlistninger Ira btadet. 

Siden starten har vi solgt band og 
disketter med de programmer, der 
er hstet ud i bladet. 

Fra og med i ar er prisen pa band 
og disketleversionen ens, nemlig kr. 
118,00. 

Skulle du mangle programmerne 
fra tidligere numre, harvi dem liggen- 
de helt tilbage fra starten. 

RUN SOFTWARE CLUB optager 
automatisk alle, der har kobt soft- 
ware gennem RUN, som medlem- 
mer. Medlemskabet er gratis og 
uforpligtende, men medlemmerne 
vil med jaevne mellemrum fa tilbudt 
forskellige produkter til reduce- 
rede priser. 



Funktionsanalyse 

Matematik er nogle gange nemmere 
at forsta, hvis man sarntidig kan se en 
igrafisk fremstilling. 




RUN's matematikprogram inde- 
holder alle de faciliteter, der kan fa en 
eller flere funktioner grafisk ud pa 
skeerrn eller printer. Sarntidig er der 
alle muligheder for at foretege rele- 
vante funktionsanalyser. 

Prograrnmet har en meget Not gra- 
fik, arbejder lynhurtigt, og kan vasre 
et vasrdifuldt bidrag til matamatikun- 
dervisningen. 

Prograrnmet fas bade pa band og 
diskette, og koster kr. 295.00. 



Regnskabssystemer 

RUN har to professionelle regns- 
skabssystemer, der begge er skre- 
vet i Comal 80 og som folge deraf 
krsever en Comal kapsel version 
2.01 



3D II - 

•13U - 

-100 - 

350 - 

3D0 - 

250 - 

200 - 

150 - 

1O0 - 



-so 

-100 
-13U 
-200 
-250 
-3O0 
-330 
-40 0 

— »so 

-300 



i;!3*sc7oanDc 



Der findes to versioner at regn- 
skabssystemet. nemlig med eller 
uden tjenesteydelser. Program- 
merne koster henholdsvis kr. 
375,00 og kr. 575,00. 

Laes i ovrigt RUN nr, 7 og 8 eller 
indsend frankeret svarkuvert for 
yderligere oplysninger. 




Tekstbehandling 

RUN's lille tekstbehandlingsprogram 
indeholder de faciliteter. som de fle- 
ste har brug for lil daglig. Hovedvaeg- 
ten er lagt pa, at programmel skal 
vasre enketB og hurtigt at betjene. 




Prograrnmet er skrevet i maskin- 
kode, og er derfor lynhurtigt. Det er 
desuden et af de eneste tekstbe- 
handlingsprogrammer, der ogsa fas 
pa band. 



Prisen pa band- og disketteversio- 
nen er ens. nemlig kr. 295.00. Kan 
ligeledes bestilles gennem RUN. 
Send evt. frankeret svarkuvert for 
yderligere oplysninger. 

Tipsprogrammet 

Vores tipsprogram har faet bade ris 
og ros. Ros, fordi det er et meget flot 
program og ris, fordi der har vaaret en 
del fejl. der forst har vist sig ved 
praktisk brug. 

Prograrnmet er nu ->affuset« og fas 
pa bade band og diskette til kr, 
195 f 00. 

Til tipsprogrammet fas i ovrigt en 
diskette med 10 populate tipssyste- 
mer for kr, 1 18,00 - kun diskette! 





1 


tbFt, 






1 


£»■■■■ 




2 




\ 







Prlvatregnskab 

RUN's bestseller, Privatregnskab, 
hjaslper dig med al holde styr pa 
ckonomten. 

Du kan opstille budgetler, indtaste 
faktiske udgifter, og senere foretage 
sammenligninger for at se, hvordan 
dil budget holder. 

Privatregnskab fas ligeledes pa 
band eller diskette til kr. 198,00. 



Ian- camooME menu* 

PfflVBTVEIHtlftB. 

iiwi^S' 8 * 1 " 

li si! mm iPi»hh 




Endehg har vi samlet de 15 bed- 
ste fra RUN's forste ar pa en di- 
skette. 

Alle programmer fra RUN saslges 
kun mod forudbetaling. Send dit 
belob enten pa check eller giro 
(girokontol 48 31 61) -og husk at 
skrive praacis. hvad der er. du be- 
stiller. □ 
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de< 
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NY... DATA UNE TERMINALBORD 



tV- 1 





Opfyldor alle normor og 

krav lil arbejdsstilltnger 
ved ikarmarbajdsplad- 
san i el tvarmomik og 
mtliovenligt deiign. 

Data Lint? modulisrltn 
lt mtrfl and terminal- 
borde. Det er ogsA lyd- 
dasmpere og printer- 
borde m.m. 



Nxrrnesie (orhandler 



DATA-LINE M rien dpi j^^^ RQSFELD 

universalis kontormllkj ■ ^^^^ Gdseawn-w J 

Irm el e-nkett bord 111 en m ^r^^ 625(f Egd 

lotallndr«lnlng IF ^ 111(06)22 7233 



Brugerporten pa Com- 
modore 64/128 

Forlagel Clausen Boger 
har udgivet endnu en bog 
af E.Darn Ravn. Denne 
gang om brugerporten pa 
Commodore 64. Bogen er 
pa 88 sider og skrevet pa 
letforstaeligt dansk. og 
med udforlige eksempler, 
sa selv nybegyndere har 
en chance lor at lolge med, 

Brugerporten bruges til 
al sastte compuleren < for- 
bmdelse med omverde- 
nen, Det Kan veere signaler 
fra computeren til l.eks. 
skiftespor pa en model- 
jernbane, eller til el elek- 
trisk varmepanel. eller lil en 
anden computer, Det kan 
ogsa vaere signaler fra om- 
verdenen ti! computeren, 
l.eks. kontakter. foto-celler 
eller thermofGilere. 

Bogen starter *med en 
gennemgang at begreber- 
ne btt og byte, samt det 
binaare talsystem. Derefter 
kommer lidt om 2-bytes re- 
gistre, stik-torbmdelser og 
reset, hvorefter der lages 
fat pa selve dataporten 



Brugerporten pa 
Commodore 64/128 



■All 1 



Bogen mdeholder bl.a. 
1 4 praktiske forsog med lil- 



rtorende prograrneksemp- 
ler, l.eks. tyverialarm, tsel- 
ler. timer. frekvenstasiler 
og voltmeter. Nogle af for- 
sogene kra?ver t al man kan 
lidl elektronik pa en print- 
plade. mens andre af forss- 
gene kun krasver. at man 
kan lodde et par lysdioder 
eller kontakter til stikket t 
brugerporten. Hvis man 
tkke kan lodde, findes der 
ogsa et loddekursus ba- 
gest i bogen. 

Bogen bestar af megel 
andet end de 14 lorsog. 
Bl.a. forklares, hvordan 
man benytter komandoer- 
ne AND og OR til at pavirke 
en eller flere bestemre led- 
nmger i porten. Der forlasl- 
les om brugen af taellere, 
som portkredsen er forsy- 
net rned. sarnt lidt om data- 
transmission og jiffy-clock 
tlmeren. Et andet afsnit 
handler om, hvordan man 
skriver de nodvendige ma- 
skinkodeprogrammer 
v.h.a. datalinjer i et Basic- 
program. Desuden er der 
visi en digital-analog con- 
verter, samt en analog-di- 
gital converter. Der er et 
afsnit om senel FM-trans- 
mission, og et om opsam- 
ling af parallelle data. Bo- 
gen slutter med at vise, 
hvordan man med opto- 
kobler og triac kan styre 
storre stromme. og spa?n- 
dinger, f.eks. 220 vofts 
lamper eller varmepaneler. 



Titel: Brugerporten pa 
Commodore 64/128 
Forlag: Clausen Boger 
Pris: Kr. 75.00 / 88 sider. 



Kort og godt 

Tysk grundighed er ver- 
densberomt - bade for det 
ene og det andet. Nar den- 
ne grundighed tilsaettes 
nordisk kollghed og gu- 
stent overlaeg, ja sa btiver 
resultalet faktisk rtgtig 
godt. Et eksempel pa det, 
er forlagel NCS's forste 
udgivefse "Commodore 
128 tips og tricks-. 

Det store vesttyske for- 
lag »Daia Becker« laver 
nogle fremragende ting. 
De er gennem Here ar bl.a. 
blevet oversat til engelsk 
og med stor succes. Nu er 
turen kommet til dansk. og 
det er en ngtig god ting, for 
gode databeger pa vort 
modersmal er en stor man- 
gelvare. 




Tips og tricks er tidligere 
udsendt til C64'eren, og 
den naturlige lortsasttelse 



er en titsvarende bog til 
128*eren. Det er en sand 
perie lor alle. som gerne vtl 
programmere selv. Lad os 
lofte lidt af slorei: 42 storre 
eller mmdre programmer, 
som med garanti vil fa tsen- 
derne til at lobe i vand pa 
enhver 1 28-e|er. Det er ba- 
re guf-guf, 

Der omtales grafik pa 
128'eren, grafik med md- 
byggede kommandoer. 
beskyttelse af program- 
mer, datasette, tastaturet, 
hjernmelavede komman- 
doer, banking, autostart. 
64-tricks pa 128 oma. 

Samtidig er den tyske 
udgave forkortet. og det vil 
sige redaktionelt opstram- 
met fra 327 sider til 182 
relevante sider. Godt 
skuldret. for jeg kan Ikke 
se, at noget mangier - blot 
har man udeladt de lange 
vesttyske forklaringer, og 
give! dem et godt dansk 
udtryk. 

Jeg ville kobe bogen 
som det allerforste- og var 
jeg forhandler af 128'eren, 
ville jeg give bogen med 
som bonus. De to klse'r 
hinanden. 

Titel: Tips og tricks 128 
Forlag: NCS, Ringkobing 
Pris: kr. 248,00 / 182 
sider. 



En anderledes »bog« 

VIFI/MUNKSGAARD har 
udarbejdet en PC-guide, 
som er et dansk program til 
Indleering af de grundlaag- 
gende funktioner pa en 
PC'er rned slyresystemet 
MS-DOS eller PC-DOS. 
PC-guiden sparer dig lor 



lassning af flere hundrede 
sider i den mstruktionsbog, 
der folger rned DOS-pro- 
grammet. Man kan tage 
PC-guiden fram. nar man 
har lid eller lyst og trasne 
specielte funMoner - eller 
man kan starte fra begyn- 
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delsen, og kore heie pro- 
gramme! igennem pa et par 
timer. 

PC-guiden bestar af 1 di- 
skette, brugervejledning 
samt Munksgaards EDB- 
ordbog. 

Ovenstaende er egentlig 
kun et uddrag a( den pres- 
semeddeleise. der fulgte 
med redaktionens ek- 
semplar, Guiden henven- 
der sig IN den absoiutte be- 
gynder, og del man laerere 
at bruge, er rel begrsenseL 
Jeg har aidrlg vseret vild 
med den ide. at man i virke- 
ligheden blot lasgger en 
bog ned pa en diskette - 
del virker som et krampag- 
tigt forseg pa at veere smart 
og moderne. 

Denne guide bnnger 
ikke noget nyt tit torvs, og 
det bedste ved den er ord- 
bogen. 



DANSK 
PC-GUIDE 

Leer setvac bruge din PC 




3/stettetnBM PCog andrv PC. 
measrm'sysazrret M5 005 



Havde prisen vasret den 
halve, ville jeg synes, at der 
var tale om et rimeligt godi 
kob. Som den ligger i dag. 
er den Ikke pengene vasrd. 

Titel: Dansk PC-guide 

Forlag: VIFI/MUNKS- 

GAARD 

Pris: kr. 668,50 



Den er skrevei af E. Dam 
Ravn, og den indeholder 
phmaert en raskke pro- 
grammer, der umiddelbart 
kan bruges i praksis. 

Bogen henvender sig til 
aile hjemmedatamater, 
men da program merne er 
udviklet pa en 64'er. er den 
guf for Commodore-tans. 

Fra prograrnindholdet 
kan |eg nasvne: 

Benzinregnskafc, regn- 
skab med seks konti. sty- 
ring af temperatur, databa- 
se, sortering, opspanng og 
Ian — attsammen ting, de 
Heste kan bruge. 



Hvad vil du med din 
hjemmecomputer? 

Jeg elsker at lege med min 
hjemmedatamat. Bare le- 
ge. Jeg har bege|stret de- 
monstreret min vidunderli- 
ge maskine for andre - 
men har altid fundet det 
svaert at besvare det enkle. 
men fornuftige sporgsmal: 

»Men hvad • bruger du 
den egentlig til?« 

Saledes indtedes bogen 
»Brug din hjemmedata- 
mat" fra Nyt Nordisk For- 
lag, og det sporgsmal er 
uden tvivl et. de Heste vil 
kunne mkke genkendende 
til. 

Jeg vil ikke pasta, at man 
efter at have Isest bogen 
kan besvare sporgsmalet 
lornuftigt - med mindre 
man vil sige: 



•>Jeg bruger den til at 
holde styr pa mit starnlras 
(god ide for kaniner!). fami- 
liens sygehistone, torsik- 
ringer, koreptaner, re- 
staurationslister og mm ko- 
nes dagtige arbe|dsplan«. 

Dette er nogle af de ide- 
er, bogen giver - den er 
selvfolgelig oversat tra 
amerikansk. Del bedste 
ved bogen er anvisninge-r 
pa. hvordan man rent prak- 
tisk far taget hul pa proble- 
met med program mering - 
og her er der noget at hente 
for begynderen. 

Til danske for hold er 
"Hjemmets computer" fra 
Clausen Boger noget mere 
lordnser. 



Hvad vil du bruge dm 
computer til? 



Titel: Brug din hjemme- 
datamat 

Forlag: Nyt Nordisk 
Pris: kr. 89,50 



Titel ;Hjemmets computer 
Forlag: Clausen Boger 
Pris: kr. 79,00 



To ar for sent 

I RUN nr. 2 1984 anmeldCe 
vi Norsk Programmerings- 
kursus del 1 . Det var en 
fremragende kursus/bog, 
og vi glaedede os til anden 
del. Det er synd, at der 
skulle ga sa lang tid. tnden 
den kom trem (i hvert laid t 
Danmark). 

I anden del begynderder 
virkelig at komrne »kod« 
pa. Der gennemgas tasta- 
turet, binasre taisystem, in- 
terrupten, printere, disket- 
testationen, grafik, sprites, 
lyd og endelig til sidst et 
afsnit med virkelig kvalifi- 
Gerede programmer (hvis 
man orker at taste dem 
ind). 

I tighed med forste bog, 
er denne ogsa opbygget (i 
hvert fald I starten) som en 
leerebog med opgaver lil 
sidst, sa man kan kontrotle- 
re, om man har forstaet det 
rigtigt. 

Sprogel er norsk, men 
sa tetleest. at man glemmer, 
at det ikke er »rigtig« dansk 
(undskyld Norge!). Den er 




pasdagogisk godt skrevet, 
og den gar i dybden 
overall. 

Jeg synes. der er en 
fremragende bog, og jeg 
kan godt aargre rnig over, at 
den er kommet sa sent - for 
sent? 

Titel: CBM 64 med VC 
1541 

Forlag: Data Supply A S 

Importer: NCS. Ringko- 

bing 

Pris: 
Bind 1: kr. 129.00 
Bind 2: kr 229.00 




a* Henning Randmose 

C128 har en indbygget mulighed for 
selv al starte et program. Ved opstart 
laeses og undersages spor 1 , sektor 
0 for at se, om der ligger en BOOT 
sekvens. Hvis du ikke karer i CPM, 
oplever du den facilitet som en (irrite- 
rende) blinken og banken fra disket- 
testationen, hver gang du tender tor 
1 28'eren og nar du reset'er. 

Prograrnmet BOOT/MODE MA- 
KER udrtytter BOOT lunktionen til 
noget nyttigt. Ved hjaetp af program- 
met kan du lave autostart pa alle dine 
C128-programmer, eller du kan fa 
128'eren til automatisk at ga i 64 
mode, nar deter en 64'er diskette, du 
laegger i drevet. 

Det eneste, der krasves, er at du 
taander disketteslationen og derefter 
for 128'eren, eller tryKker reset - det 
er da nemt, ikke? 

Brugen af prograrnmet 

Du bruger prograrnmet pa den made, 
at du formatterer en diskette, og ko- 
rer BOOT/MODE MAKER over pS 
disketten. Grunden til, at jeg anbefa- 
ler, at du starter pa en torn disk er, at 
hvis der allerede ligger data pa spo- 
ret. sS vil de blive overskrevet. Hvis 
det er en CI 28 disk, er denne kersel 
kun en reservation til senere brug, 
hvis det er en C64 disk, er den faerdig 
til brug. 

Auto-start af et program I 128 mo- 
de (f.eks. autostart af MIT PRO- 



GRAM), foregSr pa den rricide, at du 
DSAVE'r MIT PROGRAM pa den for- 
beredte disk, sa loader du BOOT/ 
MODE MAKER ind, taster RUN og 
folger derefter skserminstruktioner- 
ne. Du bliver forst bedt om at ilasgge 
diskette til booting, nar det er gjort, 
taster du mellemrumstasten. SS bli- 
ver du bedt om at indtaste en booting 
besked, og det er det, du vil have til at 
sta pa skcermen, medens program- 
met hentes ind (booting besked ma 
va?re hojst 16 tegn lang). 

Derefter skal du svare pS, om det 
program, der skal bootes ind, er i 
BASIC, maskinkode eller om du vil 
have mode-skift, sS din 128'er bliver 
til en 64'er. Til sidsl skal du sa indta- 
ste navnet pa det program, der skal 
autostarte (ved mode shift til C64, 
tast mellemrumstasten efterfulgt af 
RETURN). Der gar nu nogle fa se- 
kunder, og din disk er faardig. 

Indtastning 

Nar du har indtastet prograrnmet, 
skal du efter at have gernt det pS disk, 
kere et RUN pa samme disk. Under 
dette RUN sker der det, at grafik- 
skaarmen dannes og gemmes pa dis- 
ketten under navnene BILLED og 
FARVER. Forste korsel tager nogle 
minutter, ovrige korsler gar meget 
hurtigere, da grafikskasrmen sa blot 
hentes nede p3 disketten. 
God fornojelse. D 



Ikke mindst Commodores fremra- 
gende nye computer 128'eren stiller 
store krav til billedgengivelsen. Ikke 
blot tordi den er i stand til at gengive 
et skcermbtllede i 80 tegns mode, 
men ogsa fordi der* kan bruge en 
oplosning sa stor som 640*200 
punkter (pixel). Med udgangspunkt i 
disse 128000 punkter bliver det Wart, 
at et almindeligt fjernsyn far svasrt 
ved at folge med. 

Ja, man kan faktisk ikke udnytte 
80-tegns muligheden uden en eller 
anden form tor RGB-monitor - eller 
en anden monitor, som via diverse 
»dirty-tricks« saattes i stand til at fun- 
gere som RGB-signal-modtager. 
Men det kan vl komme ind pa en 
anden gang, 

Commodore har til 64'eren knyttet 
en bestemt monitor. Det er den frem- 
ragende model 1701. Dens egen- 
skaber er maske ikke sa imponeren- 
de pa papiret, men i praksis er den 
svaer at sla, hvis man tager prisen i 
betragtning. Ikke mindst dens mSde 
at fremstille billedet pa, ved hjaalp af 
stregmaskning pa billedraret, har 
rnedfort de knivskarpe billeder. 

Til 128'eren har Commodore ud- 
sendt en ny monitor, nemlig model 
1901. Kan den leve op til de normer, 
128 , eren sastter hvad angar oplos- 
ning, og er 1901 'eren i ©vrigt noget 
veerd? Det har RUN testet. 

I praksis 

Ligesorn sin torgasnger hos Commo- 
dore har 1901 maske heller ikke de 
bedste papirer. Specifikationerne lig- 
ge i middelklassen, men det ger pri- 
sen jo ogsa. 

I praksis far man imidlertid en 
fremragende monitor, som jeg nu har 
haft mulighed for at langtidsteste. 
Noget af det, der kan drive en vant 
bruger af et tekstbehandlingsanlaag 
til vanvid, er et billede, som enten 
bliver uskarpl, forvrasnger eller vasrst 
af alt ikke vil sta bom-stille. 
1901 'eren besidder heldigvis ingen 
af disse uheldige egenskaber. 

Starten var ellers svasr nok. Da jeg 
modtog monitoren, var den totalt 
misjusteret. men det blev klaret pa 
gehor. og det er i den torbindelse 
vigtigt at skrue godt ned for ikke 
mindst farve-, kontrast og lysstyrke. 
Start med neesten at nulstille, og gi' 
sa gas lidt efter lidt. 

Selve justeringen er nem nok. for 
alle knapper (neesten) er anbragc pa 
torsiden. Undtagelsen er et »tekni- 
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ker-hul" til at justere sammenfaldel 
at de tre farvekomponenter i farvebil- 
tedet. allsa en slags skarphed. 

Ellers er del bag en lem under 
b'Hedskcermen, justeringerne toreta- 
ges. Der er en knap til al omskifte 
mellem RGB-signal <Red-Green- 
plue) og PAL-normen (Phase-Al- 
ternation-Line). Sidstnasvnte er den 
ivanlige fjernsynsnorm i del me- 
e af Europa. mens RGB-signalet 
mest anvendes I monitorsammen- 
hasng. 



knapper, og det er her, man kan fa 
odelagt/forbedret sit billedresultat. 
Spar pa lysstyrken og indret sa kon- 
trasten. Endelig folger en lydregule- 
ring. 

Et kritisk punkt er, at man ved 
denne monitor har udeladt en muiig- 
hed lor medhor via f.eks. hovedtele- 
foner. Det fir \o ikke altid lige mor- 
somt for andre i stuen at folge med i 
256. afspilning af "Ghostbuster-- 
melodien eller andet i ovrigt glirnren- 
de programmel. 




Monitoren rummes i en plastkasse 
og vejer 10 kilo. Plastkassen er ud- 
formet med et praktisk indbygget 
greb overst i ram men- 
Pa paparet er 1901 'eren som skre- 
vet en middelklasse monitor. To af de 
vigtigste egenskaber i denne sam- 
menhceng er bandbredde og pixel- 
starrelsen, men ogsa udformningen 
al skasrmafrnasKrtingen spider ind, 
som skrevet tidligere. 

1901 'eren har en sakaldt hul-af- 
maskning med en pixel (eller rettere 
Trippel-afstand. idet der jo er tre h ul- 
ler for hver pixel) pa 0.39 mm. Det 
placerer denne monitor i den gode 
ende, men ikke i den helt dyre. Sa 
skal pixelafstanden ned under 0,35 
mm. 

Hvad angar bandbredden har 
1901 'eren en vaerdi pa 12Mhz pa 
RGB signalel og 5 Mhz pa PAL- 
eller composit (del sammensatte) 
signal. Over 18 Mhz ville have givet 
karakter som en hoj-oplosnings- 
skserm. Men pa den anden side skal 
man under 10 Mhz for at vasre darlig. 
Et farvefjernsyn har en bandbredde 
p£ omkring 5-7 Mhz. 



Bllledet kan endvidere justeres 
horisontall (composit) - det skub- 
bes mod hojre eiler venstre, eller del 
kan fladklernmes vertikatt. altsa for 
oven eller neden (vertikal synkroni- 
sering). Derncest er der endnu el 
-tekniker-hul«, som multgger for- 
skydning af billedet op og ned (verti- 
kal billed amplitude). Sa folger en 
Knap til at justere tarvemaatnmg. Den 
^ar fra s/h lil en desideret overman- 
ning, hvor der fremtraader tydelige 
sK/gger. 

Endnu en horisontal justering er 
mulig. Denne gang af RGB-signa- 
let. Derncest folger lys og kontrast 



Monltorer er stadig onskelaank- 
nlng for mange computerejere. 
Et aftagt farve- eller s/h-fjernsyn 
er stadig den mest benyttede 
skaerm i hjemrnecomp uter-sam- 
menhaang. Men stadig storre yde- 
evne hos computerne stiller store 
krav til billedgengivelsen • og sa 
ma fjernsynet melde pas. Monito- 
ren bliver et must. 



Endelig er der en on/off knap med 
LED lysindikering. 

Pa papiret 

1901 er en 14 tommer monitor. Den 
har indbygget hejttaler, som dog ikke 
yder mere end 1 W. Fra monitoren til 
128'eren teres ikke fasrre end seks 
sttk. fordelt i to ledninger. I 128'er- 
enden fores en ledning ud fra video- 
udgangen. Den overiarer PAL-sig- 
nalet og lyden, som via tre indgange 
afma?rket i tre farver tores ind i moni- 
toren med tre phone.sttk. Et 9-pols 
Canonstik overforer RGB-signalet i 
en selvsteendig tedning 



Pengene vaerd 

Mit personlige indtryk al 1901 'eren 
er vaaldig godl. Den giver et klart og 
skarpi biilede under alle forhold. De- 
signet er tilfredsstillende og sam- 
menfaldende med 128'erens. Front- 
betjeningen glimrende. og den 
rnanglende ekstrahojttaler kan opnas 
pa anden vis, nemlig via phonestik- 
ket pa video-forbindelsen. Vil man 
bruge alle 128'erens multgheder, er 
en monitor et must - og sa kan jeg 
ikke forestllle mig en bedre kombina- 
tion end 128'eren og 1901 

Fabrikat: Commodore 1901 

Pris: set til ca. 4700 kroner n 
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INPUT/OUTPUT INPUT/OUTPUT 



INPUT/OUTPUT er RUNs lasser- 
brevkasse. hvor du harmulighed for 
at fa svar pa nogle af de problemer, 
du gar og tumter med. 

Desvaerre kan vi ikke na at besva- 
re atle de breve, vi modtager. Vi 
prover at la sa mange med som mu- 
ligt og udvaalger dem, vi mener, der 
har bredest inter esse. 

Commodore-interesserede. som 
har sporgsmal eller tips at bidrage 
med, kan skrive til Tor Engebakken, 
Brandvoldgatan 1,2000 Lillestrom. 
NORGE. 



40 tegn pa VIC-20 



INPUT 



Hej Tor 

1) Jeg har hert, at skaarmen pd VIC- 
20 kan udvicfes ud over de standard 
22 karakterer pr. linje. Hvordan kan 
dette gores? 

2) Kan el 16K Ram-modul og el 27K 
Ram-modul s&ltes sammen via et 
motherboard' 7 

Pa forhind tak. og tak for et godt blad! 

Venhg hiJsen 
Brian Michelsen 
Danebarvei f 
7200 Grindsted 



-►OUTPUT 



1) Skasrmen pa en VIC-20 kan udvi- 
des udover sine standard 22 karak- 
terer. 

Dette kan gores softwaremsessigl, 
men del enkleste er at kobe et 40- 
tegns kort, som du pluggger md i 
maskinen. (Du kan faktisk ogsa fa et 
80-tegns kort!) 

2) Formentlig er dtsse RAM-modu- 
ler lavet. sa de havner pa samrne 
sted i hukommelsen, Under aFle om- 
stasndigheder kan en VIC-20 ikke 
ktare mere en 32K RAM uden videre. 
Skal den klare det, ma den kunne 
skifte mellem RAM-moduleme pa 




en eller anden made, og i program- 
mer tror jeg ikke. dette er sserligt 
hensigtsmasssigt. 



Loader / cursor 



INPUT 



Kasre RUN 

1 ) Jeg er meget interesseret i at fa at 
vide, hvordan jeg kan lave en LOAD- 
ER. som skal runnes for det egentlige 
program, og hvordan kan jeg sikre 
mrg, at det egenttige program ikke 
kan runnes uden loaderen 1 

2) Jeg vil ogsi gerne vide, hvordan 
man kan fa cursoren lilatbltnke igult, 
mens teksten f.eks. er lyseblaf 

Pa forhand tak 

CBM hilsen 
Peter Lind 
Kokrvedvej 77 
9900 Frederikshavn 



Us? 



-►OUTPUT 



Det er ganske enkelt at lave en load- 
er. Hvis du i et program skriver: 
100 LOAD "PROG" 009,8 
vil programme! loades, og automa- 
tisk starte op. 

Pointerne til start af variabler etc. 
bliver imidlertid ikke forandret, sa 
hvis "PROG2" er laangere end det 
forste program, ma du serge for at 
give disse poinlere den rigtige vasrdi. 

Dette gores ganske enkelt ved at 
du har felgende linje som den forste 
linje i det andet program: 
10 POKE 45,PEEK(174):POKE- 
46,PEEK(175):CLR 
Adresserne 174 og 175 er slutadres- 
sen til det program, som netop er 
loadet ind, og linje 10 ovenfor vil 
sorge for. at variablerne starter efter 
programmed 

Og hvordan skal vi sa sorge for, at 
programmer ikke starter, hvis den 
forste loader er kort? 
Vi ma sorge for, at loaderen gar no- 
get, som nseste program kan checke 



af Tor Engebakken 

pa. I den rnest enkle form, kunne 
loaderen indeholde folgende saet- 
ning: 

200 POKE2.34 

Loaderen har dermed lagt en vasrdi 
ind i maskinen, som sasdvanligvis 
ikke ligger inde i maskinen til at be- 
gynde med. 

Det nseste program checker dertor 
adresse 2. og hvis tallet 34 ikke ligger 
i adresse 2, kan programme! f.eks. 
foretage en koldstart. 
20 IF PEEK(2}<> 34 THEN SYS 
64738 

Denne linje vil lave en koldstart. hvis 
loaderen ikke har tallet 34 inde i 
adresse 2. 

Pa den made skulle du forhindre 
en anden i at kore programme! uden 
en loader. 
Men!!! 

Hvis din mening er at beskytte 
programme!, loser dette ikke proble- 
met. Man kan jo bare liste det sidste 
program og fjerne den linje, som 
checker tallet i adresse 2. 

For at forhindre dette, ma du finde 
en eller anden made, hvorpa du kan 
skjule de vaardier, du Isegger i load- 
eren - f.eks. ved skjulte linjer. ma- 
skin kode etc. 

Samtidig ma du prove at camoutle- 
re det sted i "PROG2", som checker 
om loaderen er kort. Dette er selvfol- 
gelig ikke let, og gode spasrnnger af 
programmer bliver betalt GODT af 
professioneile softwarehusef !! 

2) Det er operatfvsysternet, som ta- 
ger sig af blinkningen af cursoren. 
Med andre ord bliver du nodt til at 
aandre i operativsystemet for at gore 
noget med dette. 

Nu er Commodore sa tilpas flinke. 
at de giver os muiigheden lor at 
lasgge operativsystemet over i RAM, 
saledes at dette bliver muligt. 

Rutinen, som far cursoren til at 
blinke, er en del af interrupted og 
ligger under kernal-omradet i SEO00- 
$FFFF. Det forste du gor. er derlor at 
kopiere dette omrade ned i RAM. Nar 



sa 



INPUT/OUTPUT INPUT/OUTPUT 



vi kopierer den seedvanlige ROM- 
kernai. forsvinder BASIC-ROM ved 
sarnme lejlighed. og vi ma derior 
ogsa kopiere denne del af hukom- 
melsen. (SA00O-SBFFF). 

Derefter ma vi asndre selve den del 
al rulinen, som far cursoren til at 
blinke. Heidigvis hentes farven et 
bestemt stGd i hukommelsen, og 
hvis vi sendrer denne instruktion, kan 
vi opna det. du onsker. 

Hvis du disassembler interrupten 
(den starter i SEA31), finder du fol- 
gende instruktion: 
EA57 AE 86 LDX $028-6 
Denne adresse mdeholder farveko- 
den under cursoren, og hvis vi forarv 
drer dette, kan vi (segge, hvad vi 
onsker, ind i X-REG. 
EA57 A2 07 LDX #$07 
EA58 EA NOP ; GGR INGENTING 
vil f.eks. lade cursoren blinke gull, 
mens teksien som skrives pa skaar- 
men, vil have den sasdvanlige farve. I 
nedenstaende program, er del PO- 
KE59992,7 som sastter farven til gult. 
og hvis du forandrer 7-tallet lil et 
andettal mellemOog 15, vil cursoren 
blinke I en anden farve. 



10 A=40960:GOSUB30:A57344: 

GOSUB30:POKE1,53 

20 POKE59993,234:POKF 59992.7: 

POKE59991.162:END 

30 FORI=0TO8191:POKEA+l. 

PEEK(A+I):NEXT: RETURN 



Desvserre 



Multicolor sprites 



-►OUTPUT 



INPUT 



Hej Tor 

Jeg har et lilte problem, som /eg 
haber, du kan lose. Hvordan far jeg 
sprites pi min-CBM-64 til at blive 
synlige, medens de opholder srg 
uden for skasrmen, altsa under bor- 
deren? 

Vanlig hilsen 
Peter Thomsen 
Padborgvej 13 
9900 Fredehkshavn 

» OUTPUT 



INPUT 



Jeg har et problem, der generer mig 
meget. Jeg ved nemtig ikke. hvordan 
man giver en sprite flere farver pa" 
een gang. 

Venfig hrlsen 
Bjarke Orbeck 
Basverbo 5 

2665 VaJlensbask Strand 



-►OUTPUT 



Adresse 53276 styrer, hvorvidt en 
sprite er i multicolor-mode. Hvis vi 
nummererer spritene fraO-7, vil den- 
ne ordre give dig en multicolor sprite. 
100 PQKE53276.PEE- 
K(53276)OR(2T SPRITE) 
Variablen SPRITE vil her bestemme, 
hvitken sprite, som bliver i multicolor 
mode, og variablen kan have en vzer- 
di fra 0-7. 

En sprite vil nu hente sin farve fra 4 
forskelige steder. 

Farve nr.1 vil vaare baggrundslarven 
Farve nr.2 hentes fra spritens egen 
larve. (Adresse5328 7-53294) 
Farve nr.3 hentes fra adresse 53285 
Farve nr. 4 hentes fra adresse 53286 



Baqlaens ur 



INPUT 



Jeg beklager, men del er helt umu- 
ligt!!! 



77/ Tor og RUN 

Jeg har et par sporgsm-Sl, som /eg 
haber, du kan svare pa. 
(Tak for et godt bladHI) 

1) Jeg har hert en masse om as- 
sembler, men hvad bruges en as- 
sembler til, og hvad koster den? 

2) Hvordan faver man et ur, der fun- 
gerer pa samme made som det i 
CBM64, blot med den forskel, at det 
skal gi »bagleen$«. Man skat ogsa 
heist kunne stille del 

3) Kan man ii et tegnsaal til at blrve I 
computeren. nar man slukker og 
taander rgen. Hvis ja, hvordan? 

Htlsen 

Kim Petersen 
Tjomelyparken 30 
2620 Greve Strand 



1 ) Hvis du har hort om assembler, har 
du sikkert ogsa hgrt om maskm- 
kode? 

Der hersker en del forvi rring om. 
hvad maskinkode og assembler 
egentlig gar ud pa, og her er derfor en 
kort forklaring. 

Computeren forstar kun tal. For- 
skellige tal far maskinen til at gore 
sma, sma operationer (f.eks. at Iseg- 
ge taller 3 ind i en adresse). 

For at vi mennesker ikke skal ga 
fuldstasndig op i en spids, nar vi vil 
lave et program i maskinkode, har 
producenterne af de forskellige mt- 
kroprocessorer givet hvert af disse 
tal et navn, saledes at vi lettere kan 
forsta. hvad det drejer sig om. 

Tallet 162 vil maskinen forsta sorn 
LDX (laag tallet. som ligge umiddel- 
bart efter. ind I X-regi$5eret). 
LDX er en »huskeseddeK som skal 
gore det lettere for os at skrive det, vi 
vil have maskinen til at gore. 

Maskinen forstar ikke umiddelban 
LDX. Den forstar kun tallet 1 62 (og en 
del andre tal). 

En assembler er derfor et program, 
som er lavet for at oversastte denne 
»huskeseddel« til tallet 162, sa ma- 
skinen kan udfore det, vi ernsker. 
Hvad koster sa en assembler? 

Det er stort set afheengigt af, hvor 
meget den skal kunne klare, og hvor- 
dan den fungerer. 

Den mest enkle form finder du i 
SUPERMON, som har vaeret listet 
her i bladet, og som pa en mide er 
gratis, hvis du er i besiddelse af 
bladet. 

SUPERMONJ er en ret primitiv og 
(kunne man maske sige), en inierak- 
tiv assembler. Dette betyder, at det, 
du taster ind ved hjaslp at tastaturet 
umiddelbart vil blive oversat til ma- 
skmkodens mange tal. og det vil der- 
efter vcere vanskeligt at forandre det, 
du har skrevet ind. 
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► Med en god assembler skriver du 
instruktionerne Ind pa samme made, 
som du skriver ind i BASIC. (Eller du 
kan bruge et teksibehandlingsanUeg 
eller en anden type editor). Deretter 
beder du assembleren oversastte 
denne tekst til maskinkode. 

Den vigtigste forskel pa f.eks. SU- 
PER MON og en storre assembler er. 
at du kan give forskellige adresser, 
tal etc. navn, saledes at du slipper (or 
at huske tallene, og kan bruge nav- 
nene som betegnelse pa subrutiner 

O.I. 

Den bedste assembler jeg kender 
til CBM64 (maske fordi jeg selv har 
brugl den i nogle ar. og er blevet vant 
til den), er PAL. 

PAL har alle funktioner, en profes- 
slonel assembler bor have, og hvis 
du ikke kan kobe den i Danmark, kan 
du skrive til: 

PRO-UNE Software 
755 The Oueensway East 
Unit 8, Missisauga 
Ontario, Canada L4Y4C5 

Den koster omkrrng 500 kr. - og del 
er roverkob!!! 

2) Dette loses nemmest ved at Isegge 
on lille klokke-rutine pa interrupted 
Denne ruline fungerer pa samme 
made som Commodores egen, men 
med den forskel. at den tceller bag- 
Isens i stedet for tremad. 

Klokken. som bruges i den norma- 
le rutine, er gemt i tre bytes i adres- 
serne 160-162. Higbbyte dgger i 
adresse 1 60. Klokken har en -oplos- 
ning« pa 1 /60 sekund. og for at finde 
ud af, hvad klokken er, ma vi regne 
lidt pa indholdet af disse adresser. 



* = PEEK(160)*65535+PEEK- 
.61(*256> + PEEK(T62> 

Dette regnestykke giver os antaltet 
60'dels sekunder. og det skulle ikke 




vaare vanskeligt at omseette til sekun- 
der, minutler og timer. 

Vi bruger samme formal pa vores 
klokke, og bruger desuden et par 
ROM-rutiner t.il at vise klokken pa 
sksermen etc. 

Programmet »omvendl klokke 
laagger de nodvendige maskinkode- 
rutiner ind i kassettebufferen, og lin- 
|erne fra 2000 og fremefter viser. 
hvordan programmet bruges i 
praksis. 



SYS 831 slar klokken fra. 
SYS 834 starter klokken. 
SYS 828 udskriver.hvad klokkener. 



Hvis du skal indstille klokken, gor du 
som visti linierne 2000-2035. 

Hvis du skal bruge vasrdien af klok- 
ken i en streng til l.eks. al sammen- 
ligne med en anden veerdi, ma du 
selv sorge for at laagge vasrdien ind i 
en variabel. Dette er vist i linje 2050. 
3) Dette er teknisk muligt. N3r maski- 
nen sender karaktereme ud pa skaar- 
men, henter den monsteret fra en 
sakaldt karaktergenerator, Dette er 
ikke andet end end chip, som inde- 
holder bilmonsleret til de forskellige 
bogstaver, tal etc. 

Ved at skifte denne chip ud med en 
anden. kan du fa dit eget tegnsaat 
permanent ind i maskinen. 
Der krasves imtdlertid en del udstyr til 
dette. sa i praksis k©ber man f.eks. et 
dansk karaktersset. 
Softwaremaessigt kan del, du spor- 
ger om, ikke lade sig.gore. 



Danske tegn i Easyscript 



INPUT 



Hej Tor 

Jeg skriver til dig, fordijeg leenge har 
tumlet med et problem, sorn du 
maaske al/erede i denne saetning 
kan se. Oe, ae og aa (Az. 0 og A), 
dvs. danskZ(norsk) tegnsaat i forbin- 
delse med Easyscript. 

Jeg uoede. jeg havde lost proble- 
met, da jeg fik set programmet med 
dansk tegnsaat i RUN nr. 6. 

Jeg har prove! dette, men Easy* 
script v$l stadig tkke give mig danske 
bogstaver! 



2) Jeg apekuterer ogsA pa. om pro- 
grammer beregnet til en 802-printer 
ume'ddelbart kan bruges ril en CBfvf 
4023. 

3) Og hvad er en IEEE 488 interlace ? 

Tak for et i ovrigt godt blad, hvis 
kvatitet er steget j&vnt siden starten. 

Venlig hilsen og hej 
Kurt Jorgensen 
Rorosvej 106 
4760 Vordingborg 



-►OUTPUT 



1 ) Det er altid el problem med vore 
skandinaviske bogstaver. 

Nu er det jo sadan. at det pa ingen 
made hjeelper at have skandinavisk 
tegnsaat I maskinen, hvis man ikke 
ogsa har det pa prinleren. Compute- 
ren sender |o kun en ASCII-kode 
ud lil printeren. og sa er det op til 
denne at oversaatte koden til det 
monster, den skriver ud p3 paptret. 

Ud fra den listning, som fulgte med 
dit brev, kan |eg forsta, at du har 
skandinavisk tegnsaat, og problemet 
bliver da, at la maskinen til at udsen- 
de de rigtige ASCII-vserdier. 




INPUT/OUTPUT er skrevet med 
Easyscript, og dette er en tosning. 
selv om den til at begynde med vil 
virke lidt sasr. 

ASCII-Vcerdierne 1or det skandi- 
naviske tegnsaat er (normalt) som 
folger: 



/E = 123 
0 = 124 
A = 125 



35 = 91 
0 = 92 
a= 93 



Nu har producenterne af Easyscript 
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heldigvis taenkt pa. denne situation, 
og de har indlagt en made at sende 
vtlkarlige ASCII-tegn pa. 

ASCII-vasrdierne defineres til at 
ligge pa tat-iasterne 0-9. Dette gores 
ved at sastte nogle kommandoer i 
begyndelsen al dokumentet. 

Forst trykker du F3-tasten. saledes 
at du far den negative stjerne. Dere!- 
ter skriver du 1 =123 (return). 

Denne proces gentager du med de 
resterende bogstaver. 

For at dette ikke skal forhindre dig i 
at bruge tal i dine dokumenter, ma 
du. nar du skal skrive f.eks. et A, forst 
trykke F1, og derefter den tal-taste. 
som er defineret som A. Dit doku- 
ment vil efter el stykke tid veere fyldt 
med negative tat. men det vaanner du 
dig faktisk til! 

Det kan lyde som en lidt besvasrlig 
proces, men efter nogle ars tilvaan- 
ning gar det utroligt hurtigt!!! 

2) En 802'er og en 4023'er skulle i 
praksis vaare ens, og skulle fungere 
pa de samme programmer. 

3) Datamaskiner behover I lighed 
med os mennesker visse regler, nar 
de skal tale sammen. Hvis to menne- 
sker ialer hver sit sprog, ma de have 
en elle? anden tolk for at forsta hin- 
anden. 

Havde producenterne af maskiner 
og udstyr kunnet blive enige om et 
faslles »sprog", ville dette problem 
ikke vsere opstaet, men selvfolgelig 



qt der ogsa her forskel. Hvis vi f.eks. 
havde haft en computer med en Cen- 
tronic prlnterudgang. og denne skul- 
le kobles pa en IEEE printer, behover 
Vi en interface mellem dem. saledes 
at Centronic-udgangens »sprog« bli- 
ver oversat pa en made, sa IEEE 
maskinen forstar, hvad den siger, 
IEEE mterfacet er maske ikke noget 
standard printer-interface, men 
Commodore skal attics vaere noget for 
sig selv! 

Vi har flere forskellige typer interfa- 
ce, og nogle af de almindeligste er 
Centromc. RS-232 og IEEE. 



Joystick og sprites 



INPUT 



Kzere Tor 

Jeg har en CBM-64. og jeg har to 
spergsmii 

1) Jeg spekulerer pa, hvorlasnge en 
diskette holder. 

2) Hvordan'laver jeg sprites, som ieg 
kan styre med joystick? 

Hilsen 

Jacob Stalfoss 
Enighedsvej 40 
2920 Chariottenlund 

J^jJ ►OUTPUT 



1) Selvfotgelig hunger cfet sammen 
med kvaliteten pa den diskette, du 
bruger. men det kan ogs£ variere alt 



efter, hvor meget du bruger den f og 
hvilken maskme, du k0rer den pa. 

Noget eksakt tal er vanskeligt at 
give, men det er helt sikkert. at de 
slides ved brug, og cfa DATALIFE/ 
VERBATIM giver 5 ars garanti pa sine 
dyre diskettes bor du nok tage en 
backup laange mden den tid!!! 

I den forbindelse kan jeg da neev- 
ne, at vi her pa RUN kopierer mange 
disketter (programmer fra bladet) til 
Iceserne, og vi -shder™ en 3-4 ma- 
sterdisketter op pr. btad. 

2) Du aflseser joysticket ved at 
PEEK'e indhotdet i adresserne 
56320 og 56321 - afhseng.ig af, hvil- 
ken joystickport, der er tale om. 

De fern forste bits i denne adresse 
fortseller, hviken reining joystick'et 
holdes f, 

Brl 1 = fremad 
Bit 2 = tilbage 
Bit 3 = venstre 
Bit 4 = hojre 
Bh 5 = fire-iasten 

En bit er sat, hvis joysticket ikke ikke 
hotdes i den aktuelle reining, og for st 
checke, om joysticket holdes mod 
hojre, ma du skrive: 

1000 IFPEEK{56320}AND8=0 FLYT 
SPRITE MOD HOJRE 

Programmet »Les |oy« viser, hvor- 
dan du I praksis bruger denne infor- 
mation til at styre en sprite. □ 



Litteraturservice 
COMMODORE 64/128 




Salgsafdelingen 
Blakildecentret 18 
2630 Tastrup 
02-99 93 71 



Mark Andrews: Commodore 64/128 Assembly 
Language programmering 

Engelsk 320 sider, Howard Sams 1985, kr. 257,00 
Mitchell Waite m.fl.: 

The official book for the Commodore 128 
Engelsk 120 sider Horward Sams kr.226.00 

Kurt Friis Hansen: 

Dus med Comrnodore64/PLUS 4 

Dansk 300 sider C&8 kr. 198,00 

Bogerne leveres fragtfrit over hele landet. 

Stor nedsastlelse p& boger til Commodore 64/VIC-20 Forlang prisliste 
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Foresporgsler til redaktionen 
vedr. programmer og artikler 
skal ske skriftllgt eller pa tlf. 01- 
95.56.95 onsdage mellem kl. 
14.00 og 16.00. 



J3 tak! □Jegonskerattegnehelarsabon- 
nement (10 numre) og sparer 20%. 
Samtidig deltager jeg I lodtrgeknin- 
gen om en 128'er. 
Abonnementspris kr. 236,00 



Jeg onsker bladet leveret fra nr. 

Navn: 



Adresse: 



Postnummer: 



By 



i 



Klip kuponen ud og send den 
i en lukket kuvert til 
RUN, Torvegade 52, 
1400 Kobenhavn K. 



Database 

uden pjank 

De fleste, der laver programmer selv, vll pa et 
eller andet tidpunkt kaste slg over programme- 
ringen af en database. Det er som regel en tak- 
nemmelig opgave at ga I gang med, og sa laenge 
man arbejder med fa poster, vil man ikke Id de 
store problemer. 




Hvis man imidlertid vlrkelig har brug for en databa- 
se, ma man nok erkende, at et hjemmestrikket Basic- 
program ikke kan male sig med et professionelt 
fremstillet program. RUN har kikket pa el program fra 
et nyl dansk software firma, Young Software, der blev 
startel i somrneren 1985, og som pa nuvaerende 
tidspunkt har lavet flere gode programmer, som vi 
senere vil vende tilbage til. 

Mibofa-kartotek 

Her er data-ba'se i den billige prisklasse, der samtidig 
er hurtig og nern at arbe|de med. Der er Ingen 
overfledige faciliteter, men pa den anden side er der 
alt, hvad de fleste har brug for. 

Man arbe|der med en programdiskette og en data- 
diskette. Man kan beskytte sin data-base mod uved- 
kommende indtraangen med et skjult kodeord. 

Man starter med at navngive sit kartotek (max. T4 
tegn) og derefter angive hvor mange felter (max.9) a 
28 tegn, man skal bruge. Derefter skal man navngive 
de enkelte felter (max.10 tegn), samt angive, hvor 
mange poster man vil have til radighed. 

Der arbejdes med relative filer, og nar programmet 
har aprettet de filer, man ansker, er man War til 
indtastningen. 

Programmet rummer folgende faciliteter: 
opret nyt kartotek, afslut kartotek, indtast nye data, 
load gammelt kartotek, sag, save/load label, definer 
label, disk kommandoer, sikre data, aandre brugerko- 
der, label udprintning, definer skserm. 

Det ser ikke ud af sa meget, men det er nok, hvad 
de fleste har brug for, idet hovedideen med program- 
met er, at enhver let skal kunne finde ud af det uden 
forst at tygge sig gennem en flere hundrede sider tyk 
manual. Her er manualen pa 7 vetskrevne sider, som 
enhver kan forsta. 

Et godt lille program! □ 




TIPS & TRICKS (oversat fra tysk). 

Yderligere kommer i lo bet af foraret pa DANSK: 
INTERN 128, PEEKS & POKES 128 
"F0RSTE BOG" til 128, 
FLOPPY-BOGEN 1570/71 



PROGRAMMER 128 

TEXTOMAT PLUS 128, BASIC COMPILER 128, 
PROFI PASCAL 128, DATAMAT 128 
C COMPILER 128 



DKN STORK KANT AS TISKK 

PROFI -PAINTER SENTATION! 




"MAC COMMODORJT 
I hovedmenacn ttedcr nun pi negrebci wjm IN- FO. FILE, EDIT. FONT, ng 
OPTION. I den ven itre tide *f raramen er det 16 iik*ldte ikonct (amA billcder. 
der fOreattllcr den funkiion, de udf«rcrK De forakcllific lypet at penxler 0£ 
penoe Melgci ud ft» disw. I htfjrc tide if rtrntien Dndc« allc de m*T.iire. der 
endei Ul it fylde figurer - jd mtd. Men i hunden n! billcdet hir vi 
lckkerierne ! De: kan vcl^ei rcellem blyant, tprayditc, tusch, viikclcder 0£ 
gcnmetnike fnjurtr hgc ft* en enlcclt lime til htlc clipwr, rckianglcr og 
rhomber, urn fnc kan platstc* pi fJcKnnen- Zoome kan man ogai. D.v.a. at el 
boitmt omridc fmsiwrcs sfi mc&ct, at do cnJtcliff pi»c)n kan aodiea m«d 
"blyaoten". 



NORDIC COMPUTER SOFTWARE 

POSTBOX 105 • DK 6950 RINGK0BING 

Eneimparinr for de 5 nordiike lands. 
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Man kan- stille forskellige krav tif et 
databaseprogram. Det skal f.eks. 
kunne sortere data, genfinde- og 
rette data og del skal fremstille sit 
indhold overskuetigt. Isa?r det sid- 
ste kniber det otte med. Men dette 
er netop dette »File« programs 
stasrke side. 

Nar man arbejder med et databa- 
seprogram pa en computer som 
C64, er der forskellige forhindringer, 
der skal overvindes. Man kan vaslge 
at lave en database i Basic. Det gar 
lint, men hastigheden. hvormed det 
hele forleber. bliver man hurtigt trset 
al. Sadan gik det ogsa med mig, da 
jeg i sin tid favede file-programmet. 
Derfor blev flere maskin-sprogsruti- 
ner taget med i programme!. Det 
gselder en lil sortering af variabler, og 
en anden til at udprinte skaarmbil- 
ledet. 

Resten at programmet er Basic, og 
det fungerer - omend lidt traegt. Iszer 
med sa store datamasngder, som in- 
dexet for RUN 1985. Der bliver gen- 
nemfort mere end een garbage col- 
lection undervejs. Der findes mader 
at lose dette pa, bl.a. gennem en 
mere formalstjenlig mdlaasning og til- 
pasning at data. Det kan laaserne 
imidlertid selv fa nogle timer/dage til 
at ga med at finde ud af. Programmet 
fungerer. Det er megel integreret. 
dvs. de sarnme ruhner bruges til 
mange forskellige funktioner. Det 
betyder igen iidt for selve tidsforlo- 
bet. Et mere direkte program ville 
ogsa lobe hurtigere. men det ville 
fylde tre gange sa meget - og sa er 
der ikke plads til data! 

Features 

File programmet har alle de elemen- 
ter, et database program skal have. 
Det skal jeg forklare kort, mens jeg 
gennemgar et normal! forlob. Nar 
programmet er indtastet • husk at 
save det inden man forsoger at kere 
det forste gang - startes det op med 
RUN. Et ur fortasllsr hvor lasnge der 
er tilbage. inden alle data er pa plads i 
de forskellige maskinrutimer og efter 
17 sekunder kommer hovedme- 
nuen. 

Der sporges hvilken af ni mulige 
lilbud. som onskes. West naturligt er 
det at starte med at oprette en ny file. 

En ny file oprettes ved at lolge de 
sporgsmal, skaarmen stiller. Norrnaft 
kender man ikke antallet af records, 
og det tages der ho|de lor, idel der sa 
saattes en overgrasnse pa 400 pr. file. 

Hvad filen skal hedde. fastlasgges i 



nogle dataseetninger, og man kan 
naturligvis Kalde dem hvad- man vil. 
De viste er blot nogle forslag. Man 
skal nu vaelge antallet af dataposter. 
Det er begrasnset lil fire, idet man for 
overskueligheden af udlistningen 
skal kunne have alle data pa en linje. 
Men der kan.vselges 1, 2. 3 eller 4 
feller. Sa kan indtastningen at data 
starte. NaT man er fserdig eller vil 
holde en pause, bruges venstrepi- 
len. og man er tilbage i hovedme- 
nuen 

Man skal nu save sine data. 

Man kan ogsa se sine data ved at 
bruge mulighed 4, vis filen. Der kan 
nu lisles forfra. bagfra eller fra et 
vifkarligt recordnummer. 

Man kan sage pa data. Det sker 
efter valgfn koionne, og der kan se- 



ges efter en vilkarlig streng indenfor 
denne koionne. F.eks. kan man soge 
efter «ol«. Sa vil man komme i kon- 
takt med f.eks. Ole. Polle. pool. Det 
be hover aitsa ikke vsere de forste 
bogstaver, man soger pa! 

Skal man lave orn pa data, ma man 
gennem en sogeprocedure forsl. 
Her startes altid med forste koionne. 
Er der flere linjer med sogesekven- 
sen indeholdt, kan man udfra de li- 
stede soge pa en ny koionne. Denne 
sogeprocedure er noget langsom- 
melig, idet den toretages i Basic, 
men den fungerer glimrende. 

Man kan nu lave om pa data og evt. 



liste for at se resultatet. Vil man tilfoje 
data til en liste efter en kaffepause, 
eller fordi der er kommet en ny forsy- 
ning af oplysninger pa skrivebordet. 
kan det naturligvis ogsa lade sig go- 
re. Blot indlass - elier gor som skaar- 
men siger - den onskede file og 
arbejdet Kan tortsastte, hvor man 
slap. 

Endelig kan den sortere. Selve 
sorteringen foregar lynhurtigt. Men 
man skal indlsese alle data pi ny. og 
de skal behandles pa en made, som 
skaber en masse garbage, sa hav 
talmodighed, En liste sa lang som 
RUN index 1965 lager ca. 20-25 
minutter al behandle. Her kunne der 
sa=ttes ind med forbedhngsforslag. 
Vi horer gerne fra laesernel 

Endelig er der multgheden for ud- 



skrifl af den sorterede liste. eller af 
den usorterede. Og det foregar 
smertefrit. Blot fslg de instruktioner, 
der star pa skasrmen. 

Programmet giver nogle oversku- 
elige udlistnmger. Det gar det anven- 
deligt. selv om det kan strammes op 
hist og her. Men databaseprogram- 
mer viser ofte kun en record ad gan- 
gen, og det har altid irriteret mig. Her 
vises 12 ad gangen, og det skaber 
overblik for brugeren. 

Syv files kan bruges i programmet, 
og det kan vaere alt fra pladesamlin- 
gen til en adressefortegnelse over 
vennerne. God forneielse. □ 



DATABA 



v 




**** c *M# 

af Flemming Lerbsek 



850^8 



p«00 



9^0 If 



i ' 

Fileprogrammel har nogle megel 
overskuelige udlistninger. Det kan 
ses pi disss lister eller i vort index, 
som ogsi er listet pa programmet. 
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FRYSER DU? 



Er del fcoldt udenfor? Daler den hvide sne sagle over gader og strEeder? Sk ssei dig foran 
den teendle monitor med en lun computer Og skulle du mangle noget til 80'ernes elektroniske 
pejs. s§ glem ait om frosne laser - drej 02-24 26 58. Ring en 'puter (eller tilbeher)! 
Glemte vi at sige, at vi sender/bringer over hele landet? 

Kob for op til 15.000 UDEN UDBETALING! 2 AFDRAGSFRI maneder om aret! ( 

\ 



COMMODORE 

HARDWARE 

PC-128 OBS!! Pfi tager , 3895,- 

C-64 brandvarm lavpris 1995.- 

C-1541 tf'Wktt 2695,- 

C-1570disksl-Palager 3595,- 

C-1571 diskst Pa lager -maske. Ring!! .... 4295.- 

MPS801 printer ren nettopris 1995,- 

MPS 802 printer (endng (a stfc.) 2995,- 

FU Jl PD-80 1 00 cps specie! 

Commodore-udgave KUN 3895,- 

SEIKOSH A SP-l OOO VC 1 00 cps/NLQ 

skrift. specie) Commodore-udgave KUN .... 4895,- 

DPSH20typehjulsprinter 4895,- 

1 702 FARVE monitor t. 64 & 128 2995,- 

1901 FARVE monitor Inci. kabler. 

Pa lager 4795,- 

1 53 1 datasette munter I ille sag 345,- 

SX-64 iransponatte! C-64 ind. diskst, 

og farveskaerm 6495.- 

NCE MUSincl. legneprog. "Cheese" 825,- 

C-64& 1541 diskst. SAMLET KUN 4595,- 

PC- 1 28 S 1 570 diskst. HALLO 
- BEM/ERK DENNE UH0RTE 

BUNDSKRABERPRIS: Samlet 7295,- 

Comal 80 V2.01 {J A - den nyel !) 895,- 

TILBEH0R 

3M diskatter. Verdens bedste. Basta. 

10stk.KUN 275,- 

Commodore-diskettertil LAVPRIS. 

10stk.KUN 199.- 

3M rensesaet til 5V* " diskst KUN 199,- 

OBSH Der ydes L1VSVARIG garanti pa ALLE 
disketter!! 

CENTRONICS interface 895.- 

CENTRONICS interlace m/1 6 Kb buffer.... 1095,- 

AMSTRAD 

HARDWARE 

GRATIS software/disketter (etter eget valg) tor 
KRONER 2.000 nar du kober en Amslrad 6128MT 
CPC 6128/GR0N monitor. DANSK manual og 
ALLE programmer (CP/M + , DR. LOGO GSX etc. 
etc.). Du finder IKKE et bedrelilbud! Kun.... 6995.- 
CPC 6128/FARVE monitor. Ellers fuldstendigsom 

6128/GR0N. KUN '. 8995,- 

PCW 8256 "JOYCE" (se anm. Alt om Data no. 
11/85). KOMPLET tekstbehandlingsanleeg med 
DANSK tastatur, DANSK manual. DANSK tekstbe- 
handlingsprogram, diskettestatton, monitor og 
skanskriftprinter med DANSK karaktersaat Prisen 
Inkluderer GRATIS 10 disketter og 1 ks. papir 
(vasrdi ialt 1200,-). Hele pakken koreklar 
oglnt leveret, ekskl, moms KUN 9995.- 

SOFTWARE 

Amsword Advanced DANSK pa disk 320,- 

Tasword 6128 DANSK pa disk 449,- 

COMAL80{band) 649,- 

(disk) * 849,- 

HERA-Finanssystem l. 664 og 6128 

pris ekskl. moms 2995,- 

PROKURATORfraMCHprisinkl moms.... 2095.- 



PR. MO. 



200,- 
200,- 
2O0 t - 
200.- 
200.- 
200.- 
200.- 

200,- 

220,- 
200,- 
200,- 

200,- 



200.- 
200.- 

400,- 



310,- 
400,- 



400.- 



AMSTRAD TILBEH0H 

FD-2 Ekstradrevtil PCW 8256 "JOYCE". Kapacitet: 
1 Mb (1.000 Kb'!). 

Software medfolger, pris ekskl. moms 3995,- 

' JOYCE". Centronics og RS-232C interface 
(Ja- begge dele!) pris ekskl. moms KUN ... 1495,- 
3" disketter Maxell CF2 til 664y6126/'JOYCE" 

10stk.KUN h 675,- 

Databandoptager til 664/6128 KUN 498 ,- 

VORTEX HUKOMMELSESUDVIDELSE 
TIL 464: Ring 

5V4" diskst. t/464 5395.- 

2?tk.KUN 7295,- 

ATARI!! 

ATARI 520 ST. NEJ - det er tkke en trykfe|l! 
Og prisen ER mklusive ALT titbehor (Mu s, disk, 
skferm etc.) og ALLE program mer, 

JA!I! Pris INKLUSIVE MOMS!! 10.995,- 

ATAR1 130 XE. Glimrendegrafik. 
software kompatibel m. 800XL ^ ftj\p 
KUN 1 SJVOj" 

SUPERPRINTERE 

Alle med Centronics interface til f.eks. 
Amstrad..- 

FUJI PD-80 100 cos 




SEIKOSHA SP-800 80cps/NLQ 

SEIK OSH A SP- 1 000 1 00 cps/NLQ ... 

STAR SG- 10 I 20 cps/NLQ 

STAR SD- 1 0 1 60 cps/NLQ 

STAR SR- 10 200 cps/NLQ 

STAR POWERTYPE 1 8 cps Typehjul 
VI HAR OGSA BROTHER SKRtVEMASKINEP* 



3395,- 


200.- 


4295.- 


220,- 


4295,- 


220.- 


4895,- 


220.- 


4895.- 


220,- 


6895.- 


310.- 


9495,- 


400,- 


6395,- 


310.- 



DIVERSE 



MICROSTICK m. Microswitches 198,- 

THE ARCADE prof, joystick 245,- 

PHILIPS monochrome skeerm, gran el. 

ambra(prisincl. kabel) 1280,- 

Dreie/vippelod til monitor 349,- 

FARVEBAnD til Commodore MPS 802/4023, 
Fuji PD-80. Shinwa/Compumate CP-80 
ogCPA-SOKUN 79,50 



Alle priser er mcl 22%moms. Der ei 1 ARS/EGTE GARANTI pa allevaier' 
Vi sonder/tonnger overall Ira dag-ni-dag 1 GRATIS LEVERING I KeOenhavn 



OBSI! Endnu Here Indgaende Hnler be-tydor FLEROOBLET T EL EFON KAPACITET! t 
Bem»rk: Vltager ALTID letefonen. Vedvarende "ringetone" faetydoraf alle 
indgaende linrereroptagot-du horer altsa tkke den normale "oplageMone". 
V'ed 'nnqetone HOLD LINIENtl 

Danmarks Forende Mikroekspert 

Po stocks 28 - 2980 Kokkedal 
Ordreteleton (02> 24 26 58 
Ma-sokl. 8.00 til 22.00 




*«v®i eyvii mm 

af Tor Engebakken 



I dette og sidste nummer af RUN 
har der pa vore begyndersider 
vaere skrevet en del om variabler. 
Pa et eller andet tidspunkt begyn- 
der man at spekulere over, bvor 
maskinen egentlig gemmer disse. 
hvordan den gemmer dem og 
hvor meget plads de bruger i hu- 
kornmelsen. 

I almindelig Commodore BASIC 
har vi tre typer variabler: 

1. Floating Point variabler 

2. Integer (heltals) variabler 

3. Streng (tekst) variabler 

Alle disse variabler kan selvf0lgelig 
optrasde enten »alene« eller som del 
af et array (DIM, se begyndersiden). 

Intern placering af variabler 
og arrays. 

Variablerne bliver selvfolgelig ikke 
kylet tilfeeldigt rundl i maskinen. De! 
er nodvendigt rried et system til at 
holde orden pa cfem. og vi skal se lidt 
pa, hvordan del virker. 

Variablerne starter umiddelbart ef- 
tef BASlC-programmet, og hele 
den del af hukornmelsen, som ikke 
bruges til programme! kan benyltes 
til variabler. 



To adresser (45 og 46) pa zero- 
page fortseller os. hvor de almindeli- 
ge variabler starter. Adressen ligger i 
sasdvaniig low/high format, og for at 
finde starten af variablerne kan du 
skrlve: 

PRINT HtEK I - ) i *PEEK(4*>'*2;5* 

Hver af variablerne oplager 7 bytes, 
og hukornmelsen, som afsasttes til 
variablerne. er »dynamisk«. Dette vil 
sige. at den forandrer sig afhsengig 
af, hvor mange variabler et program 
har. 

Umiddelbar efter variablerne ligger 
eventuelle arrays. Starten af disse, 
finder vi i adresse 47 og 48. Pladsen 
for arrays allokeres (tlldeles) ogsa 
dynamlsk, og vi finder slutningen i 
adresse 49 og 50. Denne adresse 
markerer ogs£ begyndeisen af det 
ubrugte omrade. 

Nar et program finder en ny varia- 
bel i et program, vil aUe arrays blive 
flyttet 7 bytes op i hukornmelsen for 
at give plads til den nye variabel. 

Hvordan ser en variabel ud? 

Alle almindelige variabler er 7 bytes 
lange, men de forskelltge bytes har 
selvfolgelig forskellig betydning in- 
den for de 3 forskellige typer. Fselles 



for dem alle er, al de to fsrste bytes er 
variabelnavnet. I de na?ste 5 bytes 
fofger variablens vaerdi. 

For at skelne rnellem de forskellige 
variabeltyper, lagres navnene pk lidt 
forskellig rn^de. 

I hexadecimal vil et A vsere lig med 
S41 . Hvis vi nu har tre variabler. som 
hedder AA, vil navnet blive gemt pa 
denne made: 

AA - $41, $41 
AA*= SCI , 5CI 
AA5- 541 , SCI 

Som vi ser. gemmes FLOATING 
POINT ganske som vi matte for- 
vente. 

En Integer-variabel ser ved forste 
ejekast lidt seer ud. men hvis vi se 
nojere efter, viser det sig, at dette 
ogsa er $41 , men at den 7. bit er sat til 
1 I begge bytes, I decimal er det 65 
(A) + 128. 

En Streng-variabel, er en mellem- 
ting rnellem de to forste, og nsies 
med at have den 7. bit sat i den sidste 
byte af variabelnavnet. 

De 5 nasste bits skulle s3 mdehol- 
de vserdien af variablerne. 

FLOATING POINT er gemt pa en 
ret indviklet made, og jeg henviser til 
Commodore Corner i RUN nr. 3 1985 
for en nasrmere besknvelse at dette. 



Computerforhandler 
Commodorevej 64 
9999 Databy 
Tlf. 00-999999 

Forhandler: Commodore - Amstrad 
- Atari - Apple 

Salg * Service -* Indkonngshjaelp * 



Firma: 

Gade: 

Postnr, og by: 

Forhandler af: 
(Computermaarker) 

Salg □ Service □ lndkoring$hjselp □ 

Spec, pris i RUN nr. 2 □ 

Indrykning i et ar □ 



Annoncetilbud til alle forhandlere 

Vi har modtaget en del reaktioner pa 
de gule rubrikannoncer, der sidste ar 
blev bragt under overskrtften FOR- 
HANDLERE. Disse annoncer blev af 
nogle opfattet som en officiel llste 
over autoriserede torhandlere, hvil- 
ket ikke var tilfaeldet. Da vi altid er 
lydhore overfor positiv kritik, har vi 
taget den til efterretning og gjort no- 
get ved det. 

Reaktionerne overbeviste os ogsa 
om noget andet, nemlig at der er et 
behov for denne form for annoncer 
Vi vil derfor i kommende numre brin- 
ge lignende annoncer (se ek- 
sempel). 



Med kritikken in mente, vil en opta- 
gelse i nummer 2 kunne erhverves 
for en rent symbols k betaling pa kr. 
100,00. men elters vil prisen for en 
enkelt indrykning vaere kr. 400,00 og 
for et ar kr. 3.000,00 (alle priser excl. 
moms). 

Safremt annoncen skal indeholde 
logo eller andet bomasrke, skat den 
indsendes som rentegnet papirkopi, 
ellers skal nedenstaende kupon blot 
udfyldes og indsendes, sa vi har den i 
haande senest 6. februar 1986. 

I tvivistilfselde - ring og tal med 
Henning Randmose. 



INTEGER formatel behover kun to 
bytes. Byte 3 og 4 er alt hvad vi. 
behover, og af en eller anden grund 
er formate* highbvte/lowbyte. Hvis 
bit 7 er sat i highbyte, er vaerdien 
negativ. De tre sidste bytes er sat til 0 
og har ingen indvirkning pa variablen 
(spildplads). 

STRENGVARI ABLER er lidt art- 
derledes end de to andre. Mens v/a5f- 
dierne i de to forste typer ligger in- 
denfor de navnte 7 bytes, vil dette 
ikke va3re tilfasldet med strenge. 

Den 3. byte indeholder strengens 
laangde. De to nseste bytes indehol- 
der en adresse, som peger pa selve 
strengen. Byte 4 er lowbyte. og byte 
5 er highbyte. De to sidste bytes er 
ikke i brug. 

Hvordan ser et array ud? 

Det forste array finder du ved al kikke 
pa adressen. som ligger i 47 og 48. 

En array er en slags header, og 
derefter folger elementerne eflef 
hinanden pa rad og raakke. 

De to forste bytes i en array- hea- 
der er navnet pa array'en. Navnel er 
gemt pa samme made som en almin- 
delig variabel. 

De to riceste bytes er en pointer, 
som peger videre til nseste array. 
Dette er ikke selve adressen. men 
det antal bytes, som ma. tegges til 
adressen til indevserende array for at 
komme til naeste. Formate! er lowby- 
te/highbyte. Naaste byte (ortaaller an- 
tal dimensioner i array'en. 

De to nseste bytes er antal elemen- 
ter i sidste dimension. Derefter to 
nye bytes for naestsidste dimension 
osv. til alle dimensioner er klaret. (En 
ting at bemasrke, er at formatet at 
angive elementerne er highbyte/ 
lowbyte). 

Elementer i en array 

Mens en almindelig variabel altid vil 
optage 7 bytes, er dette ikke tilfaeldel 
t en array. Her er man gaet okono- 
misk til vasrks, og der bruges ikke 
mere plads end hojst nodvendig, 



Et FLOATING POINT element bru- 
ger 5 bytes. Et STRENG element 
bruger 3 bytes, og ei INTEGER ele- 
ment nojes med to. 

Ved store arrays ser vi derfor, at 
der er ganske stor plads al spare, 
hvis vi i stedet for en sasdvanlig 
FLOATING POINT array bruger en 
INTEGER i stedet (3 bytes. pr. ele- 
ment!) 

Da dette ikke er en helt enkei 
opbygning, skal vi se pa et eksempel. 
Ved at kore nedenstaende program, 
laver vi et INTEGER array. (En INTE- 
GER er valgt, fordi det har den mest 
•enkle opbygning af elementerne). Vi 
giver ogsa nogle af elementerne en 
vasrdi, si vi ka'n se. hvor i hukommel- 
sen de forskellige elemenler havner. 



0895-0896 high/ low = 5 
0897-0098 high/ low » 4 
OB99-089A high/low - 3 
0B9B+089C high/low = 2 



(Hvis nogen synes, at alle dimensio- 
nerne ovenfor har et element for 
meget, ma man huske pk, at nar en 
array dimensioneres med f.eks. Dl- 
MA(3), vil array'en have 4 elementer. 
A(0) er ogsa et element). 

OB9D-0B»£ = A*(Cl f Q,0,0,0,0> = 1 

O89K-08A0 = A%n.0',a,0,0.0> = 2 

08AI-OBA2 = At|0,l,U,a,U.U> = 3 

08A3-08A4 = All 1,1,0,0,0,0) = 4 

, O8A5-08A6 = M I 0 , 2 , 0 , 0 , 0,(1 > = 5 

D8A7-08A.8 = A»l 1,2,0,0,0,0) = « 



11)0 D-IMA'-U,!,?,*'^ 
110 AX( 0.0,0.0,0 I- I 
120 Alt I, 0,0,0, 0)-? 
I JO AX(0. 1.0,0,01*1 
l-U Alt I »l,O.D.I>>-« 
1J0 A*l0t2 1 0,0."^ 



Ved at kikke pa pointeren 1 47 og 48, 

finder vi ud af. at arrayen ligger f 
S088E. Derefter hopper vi ind i en 
maskinkodemonitor, og ser efter, 
hvad der er havnet hvor. 



.:CiBat C) B0 Ai-' 05 U'> 00 06 oo 

. :089& %0 00 04 00 QJ 00 02 00 

.:0B9E 01 DO 02 00 03 00 04 00 

. :0HA6 05 00*O6 0 0 OO 00 00 OO 

.:08aE 00 00 00 00 00 00 00 00 

.:0BB6 00 00 O0 00 00 00 00 OO 

. • 08BE 00 00 00 00 00 00 00 00 



088E-O88F er navnet pa array'en. 
Bit 7 er sat i 088E ffor al markere, en 
INTEGER. 

0890-0891 antal bytes, som ma 
ges til 088E for at finde naeste array. 
0892 antal dimensioner = 5 
0893-0894 high/low sidste dimen- 
sion = 6. 



ESCOM 
praesenterer 

EPSON GX-80 




EPSON GX-80, Printeren for 
Dem som kun vil have 
det bedste 

GX-80 er EPSON'S nyeste dot matrix 
primer. GX-80 har bla. NLQ og er derfor 
velegnet som primer lil textbehandllng. 
GX-80 leveres bade med friktlonsruller 
og traktor drev. GX-80 har selvfalgeJIg 
dansk tegnsaet I en 9 x 9 matrix. GX-80 
(everes klartil brug incl. et af !lg. Interfa- 
ces: Commodore. ATARI. Centronics pa- 
rallel. IBM-PC. Apple 2c. AMSTRAD eller 
MSX. 



GX-80 tester kun kr. 




4.995- 



irtcl moms og i krt giranit 



Nflrregade 12 
DK-9B00 HIerring 
TH. (08)92 60 21 
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DOMMEN 



Da vi salte sporgeskemaet til la&- 
seranalysen i bladet, var det for at 
lEBre vore laesere bedre at kende 
og for at linde ud af, hvad vi gor 
godt, og hvad vi gor mindre godt. 
Ved at holde fast pa det forste og 
rette det sidste, vil vi fremover 
give vore laesere det bedste 
produkt. 

VI var spasndt pa. hvor mange svar 
vi fik, og vi er stadig hell overvceldede 
overantallet (ca. 1500!!!}. Tak til alle, 
der har svarel og 1ak for pasne ord og 
velment krittk - den er taget til efter- 
retning. 

Din meriting om RUN 

Endnu mere spaandende var det. 
hvad lasserne egentlig synes om 
RUN. Det viser sig. at 39% af laaser- 
ne synes, at RUN er »megel godt«. 
57% finder det »godt«. 3% »mindre 
godt« og langt under 1% synes. at 
RUN er et dariigt blad. 

Laaserne mener. at RUN henven- 
der sig til bade begyndere og videre- 
komne - dog med en overvaegt til 
viderekomne. Kun fa mener, at RUN 
er for eksperter, og det mener vi 
heller ikke, at RUN skal veere. 

Derefter havde vi forskellige 
sporgsmal orn bla'det. Var det enslor- 
migt, morsomt, dyrt, afvekslende 
osv, Der var to af besvarelserne af 
disse sporgsmal, der skilte sig klart 
ud. Lasserne fandt i hsj grad, al RUM 
er informativ og interessant Det erto 
svar. som |eg personlig er meget 
glad lor, da netop disse to ting er 
blandl mine mal med RUIN. 

56% finder hjaelp i RUN og 27% 
finder meger) hjaslp i bladet. Det viser 
sig ogsa, at 39% Iseser alle artikler i 
bladet og 56% laeser de fleste ar- 
tikler. 

Hvilke computere skal RUN infor- 
mere" om? Tjah. det overrasker vel 
ikke, at 95% synes at vi skal informe- 
re om 64'eren. og 72% synes. at vi 
ogsa skal skrive om 128'eren. Kun 
ca. 20% synes vi skal skrive om 
PLUS4/C16. men her mener jeg 
1 00% . at vi ogsa skal skrive om disse 
maskiner. De samme forhold gor sig 
gaeldende for VIC-20's vedkom- 
mende. 16% vil forsat gerne infor- 
meres om PC'eren, sa vi fastholder 
vore to PC-sider, da denne procent 



nok vil vokse i takt med de faldende 
priser. Mere overraskende er det at 
12% gerne vil informeres om kon- 
kurrerende produkter, hvilket maske 
haenger sammen med, at hele 31% 
(!) patasnker at udskifte deres com- 
putere inden for det nseste ar!!! 

Hvad er mest interessant — eller 
hvad er psenest, rod eller gran. Det 
afheenger nalurligvis al den enkelte, 
men »tips og trlcks«. "nyheder« og 
"programtistninger*' er overst pa hit- 
listen. Anmeldelser, tests og laeser- 
brevkasse folger umiddelbart efter. 
Resultatet af disse besvarelser er, at 
vi afvikler vore »skoler« i den form, 
de har i dag. 

RUN ma »indeholde« noget, for 
47% laaser RUN i mere end to timer, 
28% bruger 2 timer, 20% en times 
tid, mens 5% far overstaet bladet pa 
en halv times tid. Derefter er der 
mange, der lader andre lasse deres 
RUN, for hvert blad la?ses af 2,3 
personer. 



som hobby, og 42% bruger den ogsa 
til spil. 28% bruger den til skole/ 
studium og 18% til decideret er- 
hvervsbrug. Det sidste tal er overra- 
skende stort. 

Hvis computeren er en hobby, ma 
det nok siges at vasre en dyr hobby, 
for de fJeste har ofret omknng 7000 
kr. pa foretagenet. 22% har endda 
ofret over 10.000 kr. Det er abenbart 
ikke fserdig software, man ofrer pen- 
gene pa, da 50% bruger under 25% 
faardig-software. Spil, tekstbehand- 
llng og databaser er den mest popu- 
late form for software, 

Hvad er det sa for noget isenkram, 
der star derh|emm. Ja, 80% har en 
64'er og 6% en 128'er (nov.85. den 
var lige kommet frem). 8% har en 
VIC-20 og 5% en PLUS4/C16. 
18% har mere end en computer, sd 
der ma vaare mulighed for et brugt- 
marked. 50% har en diskettestation, 
mens det for 70%'s vedkommende 
stadig er et TV. der ma holde for 




Redaktionssekret&r Grith Axel overrsekker prsemien fia laeseranafysen til 
Flemming Nifsson. 



De lassere, der har besvaret analy- 
ses er for 40%'s vedkommende 
abonnenter. og 56% har kabt bladet i 
lossalg. Gennemsnitlig har man lasst 
bladet gennem de sidste ti maneder 
(nov.85), og haft computer et ars tid. 

RUN Software Club er attraktiv. 
idet 68% er interesseret i denne. Det 
vil betyde en sterre aktivitet og bedre 
service pa detle omrade. 

Din mening om computere 

75% af laaserne har deres computer 



Alder? En tredjedei af |er er teen- 
agere og 22% af jer er I tyverne. 23% 
er mellem 30 og 40, og 1 1 % mellem 
40 og 50 ar. Resten er over de 50. 
Over halvdelen har fast arbejde, og 
en fjerdedel er folkeskoleelever. 
Dette var sa et portrait af RUN's 
laesere, og den heldtge vinder af prin- 
teren var: 

Flemming Nilsson 
Tveerskiftei 19 

2730 Heriev. n 
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RUN -INDEX 1985 



EMNE/STED 



TYPE 



* UP PUII SC'll./n5043B 
ADVENTURE 3/B50750 
ADVENTURE 4/B50BS6 
ADVENTURE S/0S09S6 
ADVENTURE/6S0116 
ADVENTURE/ 850639 
AMIGA/650718 
ANNU I TETSLAN / 650623 
BASE -HAGER/BS03 lO 
BASIC C0nPILEHE/a5095fl 
BASIC POINTEFE'050320 
fiATTLESH 1 Pf 85035B 
ilECYNDERS 1 DE?* I /fl-10722 
UEGYNDCRS I DEN 2/050020 
BEaYflDERSlDEN 3/O509ZZ 
OIT FOR BIT I2B/ W05OB14SER1E 
BIT FOR BIT 12B/2/B50914SERIE 
BRAINPOWER SERIE^050->10 ONTALE 
IHMSINF.SS APPLIC. /B50I49ANH. 
BYC SELV SPIL/05D2ZI ANN. 
DORS SPIL/BS0931 PROG 
C 126 AFSL0RES/B50224 ONTALE 
C64 DATA FILES/650330 
C64 INPUT/B50425 
CBM C0RNER/85012H 
CHOPPER 1-2/B50259 
COMAL 00 2/BS0748 
COMAL BO 3/BS08I2 
COMAL DO 4/B50912 
COMAL 80 5/B5094O 
COMAL 80 PA <WI/B5014"9 
COMAl. 2 
COHAL SERIEN/11509QA 
COMAL/850917 

conaliio 2.01 /nsosi'i 

CONALO0 OG 1 I IS* -'Mnoaic 
COMM 12B/"ri09l-7 
COMM LCD U*RDARM»5Q226 
COMM. 900/B504OO 
CUNNM ASSentlLV'ASpSlO 
CUNHG4 GHAFASOUND/05Q210ANN. 

COMM ODOR 1 NOWGE/A50130 ART. 

COM P. 1 RA010ENH150156 ART 

COMPACTOR/ 85 03A 1 PROG 
DANS ICE BYER VIL'20/B50tr.4PROG 

DANTEKST/050952 TEST 

DATAPASE/OSOIiAO I.. PROG 

DATABASE R/U5 03 16 OMTALE 

[}ATA MAKER /D503A3 I'RUG 

DATA.TIPN ING/R50752 ART. 

DEN I1I.A PIHAT/flSViOCi ART. 

DISK CgMPANIDN/OSOHV ANN. 

DISKETTE HJKLP/050524 L.PROG 

D I SK RF.NS/050447 PROG 

OK KARAKTEPEP/fl5o6t6 PBGC 
DPS 1120 TYP. PHI ./0503330NTALE 

DYNAjM IT IIARRY/Ur.0353 L.PHOC 

EASV SCRIPT 0K/B506OB ANN. 

ELITE/ 850008. ANN. 

EUREKA 1 /050"! 17 5ERIE 

EUREKA 2/05O566 SERIE 

EUREKA l/n.lO'ifil AERIE 

EUREKA 4/05011:111 St.'HIE 

KVENTYRSPI L/UG0'>3r» L.PROG 

EXPLODING F1 ST/0.5O724 ANM. 

r AKSYS MICH QATA/B50230 ANN. 

KASTL0AH/0riO720 PROG 

: I NANS/350520 L- PROG 

FLASH/ 850547 L.PROG 

FLY51NULAT0RER64 /05OS0G TEST 

FHAMEUOBK/ 850052 TEST 

FRANK BRUNO B0X.J85OB09 ANN. 

FRYS LIK1ER CG4 ' 050920 PROG 
t'A MERE UI> AK V20/0304 IUANH. 

GRAF1K 1E0 COB0/BSO91G ANM . 



I PROG 

SCR IE 

SERIE 

SERIE 

5ER1E 

SER 1 F. 

OMTALE 

L.PROG 

PROG 

TEST 

OMTALE 

PROG 

SER IE 

SER IE 

SER IE 



ANM. 
OMTALE 
TRICKS 
PROG 
SKOLE 
SKOLE 
SER IE 
SER IE 
ANM. 
SKOLE 
RETTLL. 
ANM. 
ANN. 
OMTA I.E 
ANM . 
OMTA LE 
OMTALE 
ANN 



SP1LG4 
3 SPIL 
HKLPLI. 

• HELP 
SPILSA 
A SPIL 
1.0NT. 
C64 
C64 
CG4 
CG4 
C64/SP 
tlASIC 
UASIC 
BASIC 

• PROG 
ZER0P. 
1 SVST. 
BOG 200 

3 FQFJS. 
C64/SP 

I. OMT. 
BOG-ENC 
HE LP L I N 

r . ruu . 

VIC20 

CG4 

C64 

• PROG 

•PROG 
BOG 272 
S.KOKG. 
SUfiOti 1 2 
HOG /OK 
CM 

CL. VERS. 
S10G/ENG 

I NTliO . 

1 . LOOK 

iior..i:Nr, 

HUG 

1II5T0R. 

RAO 1 003 

CG4 

SPG/SV 

PC10/20 

VIC20 

4 SYST. 
C64 / UT 1 
•PROC. 
KOPI F.R 
UOQ IPO 
CG4 
COrt/DI 
C64 

AL.COMM 

V2Q/SP 

C64 

SP/CG4 

HE LP L I . 

HELPLIN 

HFl.PL. 

SLUT 

C64 

SP'64 

FAKTURE 

01 1541 

SP/C64 

P1.US4 

7 SLAGS 

C64/ SOF 

5P/C64 

UTILITY 

UOG/OK 

(10G/DK 



GUFFER CG4/Br»QI23 ^ROG 
HJENHETS C0MP./050418 ANN. 
HiltLPEPROORAMlMER /850A2B OMTALE 
HODBrTTEN/050219 ONTALE 
HYDRO RAEDER/0S0356 L.PROG 
1NF0TAPE DATABASE /05022BANN. 
INTERN I2H/B50816 ANM. 
INTERRUPT MUSlK/n500S4 PROG 
JOVST I CI 6503O6 TEST 
JOYSTICK PORTEN/850S62 TRICK 
JUKI 6100/850600 TEST 
KARAKTER TEGNER /B50630 L.PROG 
KARAKTER/ 830642 L'PROG 
.KAHAKTERUDSKR1 FT/650309 UTILITY 
"fcARATK A/ 050009 ANN- 
KAS5ETTEJUST. /050332 ANN. 
KASSETTEOHSLAG/85072fi L.PROG 
KATA - MAN I PU LATOR / B50620 PROG 
KENNEDY APPftOACH/BSOQU ANN. 
KOORD INAT SYSTEM/050552 L.PROG 
KRYQS A BQLLE/B5G633 L.PROG 
KRYDS OG TVCHS/05042"7 PROG 
KVIKFIND 128/650B25 PROG 
KOREPM0vE/e5OS30 L.PROG 
LINKER ' UNI I NICER / B50920 PROG 
LISTER FILTER/850230 PROG 
LOGO* ANDRE SP1L/8S0313 ANN. 
LYO CHIP W050706 SERIE 
LVD CHIP 2/BS06IO SERIE 
LYD CHIP 3/B50946 5ERIE 
LYD PA 128/05071 1 ART. 
LYDPHOGR AMMEH /05O7OB OMTALE 
MAGIC V01CE/O507I0 OMTALE 
MANGE 5PRITES/05O140 PROG 
MASK 1 NK ..CG4/O50S22 ANN. 
MASK INK ODE 1/850311 KURSUS 
MASK 1 NKOUE 2/850A14 5K0LE 
MASK 1 NKODE 3/850560 SKOLE 
MASK ] NKODE 4/B50760 SERIE 
MASK : NKODE 4/B50S16 SERIE 
MASK 1 NKODE 5/850924 SERIE 
MASK 1 NKODE PAA 64/85021 1ANN. 
MASK 1 NK0DEG5O2/ 050522 ANN . 
MA5K 1 NK ORENON I TOR / 05O33fil*R0G 
MASTERMIND L.PROG 
MCH INTERFACE/ 850959 ANN. 
MEMORY K0P1ERING/050928 PROG 
MERGE TH ICK/U502G0 THICK 
MINI TEGNE PROC. /B50fi43 L.PROG 
MORSEALFAUET/050A5A L.PROG 
mOVIMAKEH/850314 ONTAI.l" 
MULTICOLOR SPR I T . /05O538ART. 
MUSIK K0MP.-DEM0/B50B30 PROG 



SPM. OUICK SHO0TING/QG046O L.PROG 

IVOG/UK OL'ICKFINO 64 / 050532 PROG 

5 PROG. RACEHKORSL'L/ (I506A0 L.PROG 

ADVENT- UAI1J (IN l(UN.MAV/'ir.0^12 ANN. 

VZO/SP MEGNLTIML'850455 L.PROG 

SOFTW. WESTSKAT CM HK/050ir.l PROG 

HOG/TV REVERSI '650727 L.PROG 

• PROG RUN PA NORSK 650S26 ART. 

HI FORS SCROLL Tl -2/U5054II I 'HOC 

CG4 SELVANGI VELSE/850 148 ANM. 

PRINTER 5IEL MK4Q KEVU./U507O7 OMTALE 

C64 SIMOM OAS . EXTEN/BS0236 OMTALE 

C16 SIMON |)ASlC/aS01 16 PROG 

PHINT/64SIN0N UA5IC/O50I22 HEFEH. 

SP/C64 S INFLATION ON C6A /85033 I ANM . 

UTILITY SKATT 84 NORSK'850157 PROG 

C64/UT SKATTEOEREGN ENG/BSO 1 10 PROG 

DM5* I SKOLE OG EOU/B50714 ART. 

SLAPSHOT / 0503 1 3 ANN . 

SNAKE HUNT COMOO/050534 PROG 



SP/C64 
PLUS4 
C64/SP 
C64 



SNAKE /8503S5 L.PROG 
SOFTWARE -CLUB /85O750 Tl LB. 
KASSET S0LITA!RE'05O642 L.PROG 
SP/CG4 S0LITAIRE64/8Q0B2S L.PROG 
T/O-PUT SPECIELLE TEGN/850239 PROG 
UTILITY SPEEDD05/850210 OMTALE 
CI6/.4 SPRIUETRCNING C64 /83O246PR0G 
C64 SPY VS SPY 2/05O9M ANN. 

C64 SPOCELSESJAGT/050352 L.PROG 

• PROG STII.LE 1541/Q50559 TRICK 
BASIC STRATEGY GAMES'850220 ANM. 
3 TESTS STRUKTURERET PRO. / 85O510OMTALE 
C64 SUPER PRCNT/Q50630 L-PROG 

32 EKT SUPER OU ECKF [ ND/BS063B L.PROG 
BOG/DK SUPER SPRITE/650940 L.PROG 
SUPERNON RETTELSE/050570RET. 
SK64/0NVERDENEN/ 050419 COMMU. 
SYNTHINAT C64/850712 ANN. 
SOJLEPROCRAN/ 850329 PROG 
TAL INVASI0N/O5O54G L.PROG 
TAPE I NUEM /OSOl |4 PROG 
3B0GER TEGNFORDELINC 1/850436 PROG 
BOG /OK TEGNFOROELING 2/850S59 ONTALE 
CM TEKST BAG FILE/050819 THICK 

CG4/SP TEKSTDEHANDL t NG* A /8502150NTALE 
PR) INT TF^STDEHANDL T NG/ 850536 pROG 

TEKSTDEHANDL ING6A/B502 I 20MTALE 
THE LAST ONE/650817 TEST 
TILFILOICE TAL/050150 PROG 
TIPSPR. PR I NTRUT . / 850734 PROG 
TIPSPR- PR I NTRUT . /BQCa'PROG 



•PROG. 
C64 
C64 
C64 
C64 
C64 



MUSIK MAKER/050355 TEST 
MUSIK MC/B50fl29 PROG 
KUSIKBOCEN 64/850713 ANN. 
NCE-MAUS/ 650949 ANN. 
NEWS DESK/05O706 FASTRUB 
NY 120 BOG/650618 ANN. 
NYE II0RIS0NTEH/B5O74CJ ART. 
OK I MATE 20 F . PR I . /8505 12TEST 
OK I MATE 20 OG C0M/05O910ANN. 
OXFORD PASCAL64/650232 OMTALE 
PC 10 TEST/OSOrtOT ANN. 
PC 1O/05O21B OMTALE 
PER I ODE OPGOPELSE/850412PP0G 
PERS.COMP. SOC I E. / 850363 REDAK 
P I RATKOP I F.R I NC/ 050555 ART. 
PRINT RUTINE SMI . /B5O52UHH00 
PR I V . REGN . T 1 LLCG . / B50526L . PROG 
PR I VATREGNSK 2-3/050142 PROG 
PR 1 VATREGNSK All 4/050206 PROG 
PROGRAN-KARTOTEK ^050241 PROG 
PROGR AN LOADER / 05O725 L . PROG 
PUNCHY CC4/850162 ANN. 
PU5SLER C64/n50244 PROG 



C64 
HAND 
C64 
VIC20 
CM 
C64 
C64 
Cf.4 



TIPSPROGWAN 1/050217 
T I PSPROGHAN I / 050643 
TIPSPROCPAH 2/B50308 
SU50030 T I PS PROGR AN 3>'05O426 
BOC/TY TIPSPROGRAN 4/05O553 
T I PSPROGHAN 5/050730 
TIPSPR0GRAN/850833 
THACE C64/85063B 
TRIGS TIL 64/05051 1 
S8509IB TR*T AF 0A5IC7/85065& 
SB505I2 TURBOPR0GRAM64/8S05SO 
SPROG ' T*NDST I KSP I L/ 850533 
UFO LANDING/050156 
UNCOMPACTOR '1150342 
S PRIV. VICNAN VIC20/850147 
SOFTW UIZA5TAH/050I32 
VIZASTAR/O50I36 
W | MULE DON V I C20 / 05054 1 
WINTER CAMES/0S0910 



HAPDW 
I . GANG 
BOO/TV 
CONNU. 



HARDW. 
1 . DNT . 



DLA AVI 
UT I L I TY 
Tl L.2 



SB50206 Wl I906/0504n0 



PROG 

PROG 

PROG 

PROG 

PROG 

PROG 

PROG 

L.PROG 

TRICK 

ONTALE 

PROG 

PROG 

PROG 

I 'ROC 

PROG 

ANMEL. 

ONTALE 

PROG 

ANN. 

L.PROG 



.WORKINQW. EASY S/B5O330ANH. 



C64 



ZOMBIES/ 050621 



L.PROG 



UTILITY ' /0RK 1 ADVENTURE / 050 139 ANN. 
SPIL OKONOM I SVSTEMER /B50 106 SOFT 

SPIL 



VIC20 
UTILITY 
U20/SP 
KIM I. 
CU54 

HASIC 

SP/C64 

PRCSEN. 

S850515 

REVISOFT 

TIL C64 

S0S01 16 

S 3 FOR 

K ON AND. 

BOG-ENG 

BASIC 

CONGO 

CONAL 

SP I L64 

C64 

V20/SP 

SOFT 

V20/SP 

SPIL 

C64 

DISK-UT 

MINITEKT 

SP/C64 

C64 

PROG 

EPVX 5P. 

COMBO 

C64 

UT/C64 

CC4 

CG4 

COM0O 

BOG/TY 

C64 

V20/SM 

5060 in 

C64 

S050436 
□I 1541 
I NDBYG. 
CONOO 
5 FORSK . 
C64 
CC4 
MPSBOt 
MP50O2 
CON 64 
PLUS* 
S 85021*1 
5 FORG. 
PRINT 
SLUT 
SANLET 
UTILITY 
• PROG 
5 SPRog 
C /O-PUT 
C64/SP 
AftCAl>E 
CG4 / UT I 
SPIL 
N. VERS 
N , VERS . 
ilP/. 16K 
SP/C64 
C$4 

QOG-ENG 
C64/SP 
3-VERS. 
7 SYST 



RUN er meget lydhor overfor lae- 
sernes onsker. Derfor bringer vi et 
helt drs arlikler i form af et index 
for 1985. 

For at bevare overskueligheden, 
har vi brugt forkortelser, sS alte enhe- 
der kun fylder en linje. Forkortelser- 
ne er: 

An=artikel ( anm=anmeldelse. prog 
= prog ram . Lprog= tceserprograrn , 



dk=dansk, eng=engelsk, ty=tysk;, 
sp=spil, samt en del Here, som vist 
giver sig selv. 

En linje lasses saledes f.eks.: 
0konomisysterner/1985, blad 1. si- 
de 6, software, 7 systemer 
er blevet til: 

0KONOMISYSTEMER/85O1O6 
SOFT 7 SYST 



Vi har i ovrigl brugt et program til 
indexet. som vi oftentliggor i dette 
nummer. Sammen med program- 
met, der kun korer med en disksta- 
tiorv. leverer vi ogsa via vor program- 
service hele arsindexet med disket- 
tes Men programmet kan bruges til 
meget andet. Se nasrmere andet 
sted i dette nummer af RUN. 



iV3 



En af de utaltige muligheder. som 
abner sig. nar man er blevet ejer af 
en computer, er god gammeldags 
databehandlinq. 

VC1525. VC1526. MPS801. 
MPS802, Epson, Quelle provileg, 
Smith-Corona og HR-15. Desuden 
kan man definere sit eget tegnsset. 

Der gar ca. to minulter med ind- 
Isesningen af programme! Derefter 
vaalger man tegnsaet og floppy-an- 
tal. Generelt kan man sammen- 
ssette netop den konstellation. man 
onsker. d.v.s. den printer, med det 
og det tegnsaat, udlaast pa en be- 
stemt made o.s.v. Altsammen fore- 
gar via menusryring, og man kan 
selv definere sine -masker", altsa 
den made, man onsker at indlaase 
data pa. 



Der kan ogsa soges pa f.eks. - = . 
< - . > = < . > - eller pa sekven- 
ser som f.eks. -jac*», hvor »*» er en 
joker, der gselder for resten af ordet 
f.eks. Jack eller Jacobsen. Soger 
man pa det, som kaldes indeks-fel- 
tet, er sogetiden altid pa under 2,5 
sekunder. Men man kan ogsa soge 
efter flere kriterier pa samme tid, sa 
varer det noget Isengere - ofte mi- 
nutter ■ mden alio data er gennem- 
gaet. Men det er intet imod, hvad 
det vrtle have koset at tid, hvts arbej- 
det skulle gores manuelt. 

I samme tempo som computeme 
bliver storre og storre, abnes for 
bedre muligheder for at bearbejde 
disse data. For sporgsmalet om at 




gulnede sider. Jeg har bl.a. brugt 
-Datamat" til at fa styr pa ttpsstate- 
stikkerne. 

Anvendelsesmulighederne er 
mange, men man skal se sig lidt for, 
nar man kober et program. Mange 
gange kan man meget let klare sig 
med et ganske almindeligt program, 
som man taster ind fra et tidsskrift, 
eller se.lv udvikler. Det vil ofte vaare 
et sekventielt datalager, man far la- 
vet. Skal man imidlertid have opfyidt 
et mindstekrav af hurtighed og flek- 
sibilitet. ma man lave et retativt-da- 
talager. Og sa begynder besvasrlig- 
hederne for mange. For ogsa denne 
form for datalagring har sine svage 
sider. og sa ma der gribes til en 
kombination af de to former. De Ne- 
ste vil Set her vasre havne pa -Her- 
rens mark- i forsoget pa at klare 
skaerene Jeg foretrak at se mig om 
efter et program, der kunne netop 
.rJet. jeg havde brug for. 



>) 



vcene 



Datamat har sine begrasnsnin- 
ger. men de ligger hojt nok for de 
fleste. Hvert felt kan vaare fra 2-40 
tegn langt, der kan vaare op til 50 
felter for hver maske, og gerne flere 
pa samme linie. dog ma den sam- 
lede laangde pa felterne ikke over- 
stige 253. 

Hvert "datakord- altsa hver re- 
cord lagres strak's. sa man behover 
ikke vasre bange for evt. stromsvigt, 
Det er naturligvis muligt at rette og 
tilfoje pa kortene indenfor de ram- 
mer, masken har slillet op. 

Men del bedste er de '»nye-< arki- 
ver. man kan udvaslge fra det store 
arkiv. Man kan udvaalge et eller flere 
kriterier. og sa fa dem kort ud som 
et selvstsendigt sekvenliell dala- 
saat. Et sadant saat data kan i ovrigt 
bruges sammen med et andet Data 
Becker program -textomat». men 
mere om det senere. 



opbevare data er kun et mindre pro- 
blem. Det ktarer en bandstation ■ 
omend noget langsommeligt - eller 
en diskstatlon Vi skal med ud- 
gangspunkt i onsket om at kunne 
behandle data hurtigt og smidigt. i 
det folgende omtale et relativt Nile 
program, som forlaget Data Becker 
har lavet. "Datamat- hedder pro- 
grammet. og det er nu solgt i mere 
end 15000 eksemplarer, hvilkel si- 
ger en hel del om interessen for da- 
tabehandling. 

Databaser 

Den form tor databehandling. vi her 
skal tale om, er arbejdet med data- 
baser Det kan f.eks. vsere din pla- 
desamltng, som selvstsendig data- 
base, eller tidssknftssamlingen. 
hvor du gerne vil kunne finde tilbage 
til bestemte artikler uden at skulle 
blade dig igennem bjerge af gamle 



onden 

af Flemming Lerbaek 



Datamat 

Med tysk grundighed forklarer en 
meget flot manual - ringbind med 
losblade - hvordan programme! ko- 
res normalt. De enkelte komman- 
doer er derefter udpenslet og ek- 
semplisifiseret. Det forklares ogsa, 
hvordan man skal tilpasse program- 
met til ens egen printer, hvis man 
har en sadan. Der er lavet forpro- 
grammermg til bade ASCII (ameri- 
kansk) eller tysk standard (x og y er 
bl.a.v byttel om) og det til folgende 
pnntere: 



Importor: Bata Becker/Nordic 
Computer Software 
»Datamat». 114 sider manual, disk 
498.00 kroner. 

••Trainingsbuch zu Datamat- . 317 si- 
der. 199,00 kroner □ 



Commodore- MARKED 



COMMODORE 
REPARAMNER 

udfores hurtigt og BILLIGT 

Vi reparerer C 16. Plus 4, c 64. 
Comm 128 Floppy 1541 / 1570. 
Printer. 4023/ 801 /802 

Ring og fa en snak, efler send den 
med posten, og fa et tilbud. 

COMMODORE 
SPECIALISTEN 

POSTBOX 128 
4300 HOLB/EK 
TLF. (03) 43 23 48, eft. 13.00 



REPARATION 

Er microdatamaten gaet I 
stykket? 

Ring og en snak om problemet, eller 

send datamaten til os med posten 

Vi reparerer hurtigt og billigt og vi giver 

gerne et hlbud torsi 

Vi saalger ogsa reservedele og tilbehar 




GR0NH0J 
elektronik 

v Frode Harritz 

ManstedveJ 35 

7470 Karup 
Tlf. 06-66 1 1 56 



Disketter5V4" 

(Sendee overalt) (kirn kvalltet) 

Precision fra Xidex 

48 TPI SSDD 195? 

48 TPI DSDD 230t 

Neutral fra anerkendt fdbrtk 

48 TPI DSDD 149r 

Ovenstaende er 10 stk. priser incl. 
moms, men excl forsendelse. 

Mangdeordrer i alle marker + 
neutral 3", 3Vk" 5Va", fl" til spotpn- 
ser. Gaelder bade forh. , private, fi rma 
o g skoler. 

FORHANDLERE S0GES 



IMPORT, EXPORT, ENGROS. DETAIL 

HEXASOFT 

RINGSTEDVEJ 16, DK-4440 M0RK0V 
TLF 03- 47 41 22. udl. 009453474122 



BECODAN 

tilbyder 

Diskettestation 1541 kr. 2695 

Diskettestation 1570 kr. 3595 

MPS 801 printer kr. 1995 

Comal 80 til C-64 kr. 875 

1702 Farvemonitor kr. 2995 

Philips monitor 

gren/amber kr. 1250 

Spar tid. tastloader til 

din Commodore kr. 265 

Commodore 64- 128. 
ring vedr. priser 

Datasette kr. 344 

Alt i tilbehar- 
VI sender overalt 

BECODAN -01*46 4655 



5,25" DISKETTER 

3 stk. SSDO - SO kr. 

10 stk. SSOD 148 

23 Btk, S800 „ 399 Hi. 

3 elk. DSOO 60 kr. 

10 itk. DSOD — 179 kf. 

25 «k. DSOD ,. 440 kr. 

Blanke -Mo Nam e- duKotler passer tit Commodore 
64 m.fl. Forsendelse, Indtandr kr. 12 pr. ordre * evi 
opfcrawning. Futd relurret. Tilled 10 deflea le*e- 
rlngalid. - S*» v. lorudbeitllllng (tiu sparer ydtrr- 
maro kr. 13 I posiopkrovnlng. 

JEO BESTILLER HEHVED: 

m« type *c 

stt lypo 

Evt. - v. torudWt. 

Forsendelse 'ZJO 

la* 

Send check, posianvisntng elk* indoeial pa 
QiRO 9 15 17 10 

Send pr. eherkrav 

Jtg pnjker beuling forettgel a*r mrt Diners CluO 

*<ud<ikori med nr 

udlebsdaro 



TerminalDord model TB 81 
med sideplade 



kr. 3.720. 




DATA +, BOX 17, 8970 HAVNDAL 
(06) 47 06 21 



S*a»rrnplad« kan druies lit yensire/ho)ie og kan dM- 
uden vtppes tnnlost op til 1 5 grader. Taslaturplade kan 
ior»kyd«ft f rom/lilDage 1 5cm. og vlppet iriniDti op i*M 5 
grader. Hojdo -pa sideplade- kan |mteres>uafh;engigi a' 
terminaloord. ■■■■■■■■■■■■■ 

IERMI design ApS 

ipi iC mobelstel :'■'■=■ oogar»« 
BygaflffnflO 4736 Karreoasksminde Til 03-74 29 30 



DISKETTE CHOK! 

ABNINGS tilbud fra home data 

3M diskette (neuirale 5V* ") 
double sided (dsdd) pr. slk. kr. I9r 

Supreme disketler BW' 

double sided (dsdd) pr. stk kr 26t 

Precision disketler 5 Yd" 

double sided (dsdd) pr. slk. kr 26, 

single sided (ssdd) pr. stk. Kr. 22r 

Diskettebokse med las fra Kr. 223. 

VI har desuden alt i tilbeher lit lavesto 

priser. 

Alle priser er incl. moms. excl. olterkfavs 
gebyr og porto, som bortfafder ved forud- 
betaling. 

HOME DATA 

telf. (06) 17 94 99 
hverdage efter kl. 18.00 
+ hele weekenden 



SELVANGIVELSE 1985 PA EDB 



Din Commodore 64 er den talmodige og 
diskrete revisor som laver din selvangi- 
velse. 

Selvangivelse i9B5enntetiegeto|G-pfogrammen 
st musKe-l-program pa ca 1 70 kilo-bytes - Ja. 0u 

lasste rigiigt 

Selvangivelse 1 985 oesiar a' ' 2 pi og» amaele . der 
af bolder samm en , sAiedes ai programdelene reeli 
er et start program pa din Commodoro 64 
Dot er lyk-kedes os ai 13 detle program til al kore pa 
en Commodore 64, hvilkel eilers vilie kraave en 256 
kilo-bytes personal computer 
Om Selvangivelse (985 kan kan loriaBlies 

- Udarbejder selvangivelsen toi lenmodlagere 

- Efter selvangivelsen Doregnes rests kai/over- 
akydervde skat 

- 1 00% seMorkia'ende Du kart torsta og k*ve 
programme! lotstegang 

- Krsver ingen kendskab M EDB eiie> skat 

- Paodagogisk opbygget 

- Aktuelie love . regler og satsor (or 1 985 nggei i 
programme! 

- Erstatter skatteveiteanmger, ooger m v 

- Klarer den taimasssige oehanddng w . 

REVI-SOFT th. 06-13° 



- Ko'er i maskinsprog 

- Kan kore med eller uflen printer Med printer 
shnves selvangivelsen ud p4 printer 

- Klarer bide de storsie og de mmdsle selw- 
angiveleef 

- Giver neml og hurl.gt ovfltodk I okonomien 

Selvangivelse 1 9B5 holder dig ved nanden og le- 
der dig igennem selvangivelsen AI mere MompH- 
cerede opgavar som programmei klarer udenpro- 
Olemer kan nasvnes: 

- Villa, ejerlejiighefl og sommemus 

- Panieb'eve obligation er og akller 

- Leasing-, kommandit-anparier m,v 

Overrasket? - Vtgaranterer at duviHmde Selvan- 
givelse 198S enanjmrjioavancereienddiJliot.el- 

tei kun ot have 'asst den ne annonce 
RmgulO'piigtenaeniosoglAoplysningeroniaildei 
som programmel egentlig kan 
Pvis mcl . forsendelse lor bond- eller diskette-vers- 
on, mod (orudbetalmg, 1 95 kr. 
DnskesprogrammBt sendi pr slterKrav nilasgges 
gebyr pS 30 kr 
Hing efler sknv III 

rggade 6, 3. th. 8000 Arhus C 
96 17 (kl. 18-21 alle ugens 7 dage) 



» Sidste side* Sidste nytSiden sidst* 



Revisor j computeren 

Til jul og nytar er det naesten umu- 

ligt at fa fat i en taxa, og i februar er 

det en nadessag. hvfs man kan fa 

en revisor til at interessere sfg for 

en ganske almindelig selvangi- 

velse. 

Sidste a> sendte REVI-SOFT et 
professionelt selvangivelsespro- 
gram pa markedet - kedeligt og trist, 
men veifungerende og effektivt. 

Et sadant program kan desvserre 
kun bruges samrne ar, og for alle, der 
sidste ar syntes, det var mange pen- 
ge, er der godt nyt at hente. Program- 
met er i ar sal ned fra kr. 495,00 til kr. 
1 95.00 (bSnd eller diskette) ! ! ! Samti- 
dig er programmet blevet staarkt for- 
bedret i forhold til sidste ar. idet der 



SIDSTE NYT 

Via vort Internationale tilhersforhold 
er vi kommet i besiddelse af nogle 
virkelig gode programmer, som vi 
kan tilbyde laaserne til lavpris. Det 
drejer sig i dette numrner om en 
diskette med tre programmer: 

Spreadsheet (regneark) med 30 ko- 
lonner og 26 rsekker (780 celler). 
Cellerne kan indeholde tekst, tal og 
simple formler. Compile! udgave. 

BASIC 4.5 er et maskinkodepro- 
gram, der giver dig omkring 50 nye 
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L/ESER ANN ONCER 

Fantomdriver spil til VIC-20 med 
bane som scroller over 12 skserme. 
Nkr. 75.00 

Tor R. Skoglund, 7970 Kolverud, 
Norge. 



bla.a. nu er mulighed for at gemme 
filer pa band, og ga tilbage og toreta- 
ge visse rettelser. 

Programmet, der er selvforklaren- 
de klarer enhver lonmodtagers selv- 
angivelse, selv leasing og komman- 
dit-anparter kan det finde ud af. Pro- 
grammet er ligesom sidste delt i to 
dele. For det forste den del, der ved 
harden leder dig gennem selvangi- 
velsen, og for det andet den del, der 
beregne din slutskat. 

Der er tale om et virkeligt stasrkt 
program, der efter dette ars pnsned- 
S33ttelse burde ligge hos enhver 
Commodore-ejer, RUN har testet 
programmet, og det kan varmt anbe- 
fales. 



•'»!< r.bi ninjti unit t 
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basickommandoer, hovedsagelig 
omkring sksermeditering, diskette- 
kommandoer og sprites. 

GRAPH MAKER 64. et program, der 
laver meget flotte sojlediagrammer. 
BASIC-version, sfi du kan bruge 
rutinerne i egne programmer. 

Prisen for denne diskette med alle tre 
programmer er kun kr. 118,00. Pro- 
gramrnerne er engelsksprogede. 
men med dansk vejledning. Bestil 
Superdisk 1. Salg - se RUN Softwa- 
re Club side 45. 



Losning af div. VIC-20 adventures 
kr. 15 - Machine Language Monitor 
Cartridge kr. 150 
Erik Sorensen - 07.951168 



Nseste numrner af RUN 

Efter denne oversigt over, hvordan 
variabler og array's opforer sig, skal 
vi kikke lidt nzermere pa" strenge. De 
har en del sseregenskaber, som del 
er godt at vaere opmasrksom pa, nar 
vi programmerer. Her er bade tid og 
plads at spare, hvis vi taenker os om. 

Vi skal derudover komme med 
nogle praktiske eksempler pa, hvad 
alle disse tilsyneladende unyttige 
kundskaber kan bruges till 



VII du i radioen? 

Ingen ved, hvor mange hjemmedata- 
mater, der star og samler stov I de 
tusind sma hjem. Mange er kommet 
over den ferste input-feber og har 
udspillet deres sidste computerspil, 
Danmarks Radios undervisnings- 
afdeling r&der bod pa stilstanden ved 
at forstaarke sine bestraabelser for at 
aktivere det danske computer- folk. 
Der kommer TV-serier som -Micro 
og dala« og »Data — fremtid og sam- 
fund". 

Noget af det mere spasndende er 
10 radioprogrammer i efterSret, der 
sondag formiddag blandt andei vil 
soge at koble hjemmeprogrammorer 
sammen, sa de kan udveksie erfarin- 
ger i radio og sende eller snarere 
udveksie »hjemmestrikkede pro- 
grammer'' akustisk via asteren. 

I den forbmdelse soger Danmarks 
Radio kontakt med klubber (og en- 
keltpersoner), der kunne va=re inter- 
esserede i at blive orienteret eller 
maske deliage i disse udsendelser. 
De kan t sa tilfaelde skrive til 

Bent Kallehave 
Danmarks Radio 
Islands Brygge 81 
2300 Kobenhavn S 

De programmer, der til sin tid skal i 
luften, skal ligge akustisk pa kasset- 
teband, og de vil blive transmitteret i 
et system ved navn BasiCode, der er 
udviklet I Holland. 

Titlen pa hjemmecomputer-serien 
er "Enter, run and return-', men ud- 
sendelsensthlen er endnu ikke be- 

sluttet 



RUN nr. 3 udkommer den 26. februar 1986 
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Professionelt printertilbud 
til din Commodore 64 1 128! 




Professionel 
matrixprinter 

Commodore 
kompatibel 
120 tegn/sek. 
Near Letter Quality. 
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